01. DADOS GERAIS
| Produto: | TOTVS Gestão Jurídica - Linha SISJURI |
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Jurídico |
| Módulo: | TOTVS Gestão Jurídica - Linha SISJURI - Pré Faturamento de Serviços (SIGAPFS) |
| Função: | Operação de Pré-Faturas - JURA202 |
| País: | Brasil |
02. DESCRIÇÃO
| Localização | Atualizações >> Cadastro >> Movimentações >> Operação de Pré-Faturas | ||||||||||||||||||||||||||
| Parâmetro |
| ||||||||||||||||||||||||||
| Retorno | Não se aplica |
03. DEMAIS INFORMAÇÕES
#INCLUDE "JURA202.CH"
#INCLUDE "PROTHEUS.CH"
User Function J202RESPF(aValores)
Local aValores := {}
Local cPreft := NX0->NX0_COD
Local oTela := nil
Local cPnlDlg := nil
Local cPnlBot := nil
Local oPnlTsOri := nil
Local oPnlTmp1 := nil
Local oPnlTmp2 := nil
Local oPnlTsDes := nil
Local oTitOrig := nil
Local oTitDes := nil
Local oTitObs := nil
Local oTotal1 := nil
Local oTotal2 := nil
Local nI := 0
Local nJ := 0
Local aCampos := {}
Local cTmp := ""
Local utemp := "Tmp"
Local lExibeNac := !(NX0->NX0_CMOEDA == SuperGetMV( 'MV_JMOENAC',, '01' ))
Local nSoma1 := 0
Local nSoma2 := 0
Local nLen := 0
Local oFolder
Local aFolder1 := {}
If Empty(aValores)
MsgInfo(STR0194)//"É necessário informar os valores a serem exibidos."
Return .F.
EndIf
nLen := Len(aValores)
For ni := 1 to nLen
If ni == 1
aAdd(aFolder1, "Pré-fatura")
Else
aAdd(aFolder1, "Pagador "+StrZero(ni-1,2))
EndIf
Next ni
DEFINE MSDIALOG oDlg TITLE STR0195 FROM 000,000 TO 400,550 PIXEL // "Resumo dos valores da pré-fatura"
oFolder1 := TFolder():New(1,1,aFolder1,{},oDlg,,,,.T.,.F.,276,199,)
For nj:= 1 to nLen
cCompl := StrZero(nj,2)
&("oTela"+cCompl) := TJurPanel():New(0,0,0,0,oFolder1:aDialogs[nj],"",.F.,.F.,CONTROL_ALIGN_ALLCLIENT)
&("cPnlDlg"+cCompl) := &("oTela"+cCompl+":AddHorizontalPanel( 80 )")
&("cPnlBot"+cCompl) := &("oTela"+cCompl+":AddHorizontalPanel( 20 )")
If lExibeNac .or. AllTrim(aValores[nj][1]) <> SuperGetMV( 'MV_JMOENAC',, '01' )
&("oPnlTsOri"+cCompl) := &("oTela"+cCompl+":AddVerticalPanel( 50, cPnlDlg"+cCompl+" )")
&("oPnlTsDes"+cCompl) := &("oTela"+cCompl+":AddVerticalPanel( 50, cPnlDlg"+cCompl+" )")
&("oTitOrig"+cCompl) := tSay():New( 03, 05, { || STR0196 },&("oTela"+cCompl+":GetPanel(oPnlTsOri"+cCompl+")"), , , , , , .T., CLR_BLACK, , 100, 10 ) // "Totais da Pré-Fatura"
&("oTitDes"+cCompl) := tSay():New( 02, 05, { || STR0197 },&("oTela"+cCompl+":GetPanel(oPnlTsDes"+cCompl+")"), , , , , , .T., CLR_BLACK, , 100, 10 ) // "Totais da Pré-Fatura na Moeda Nacional"
Else
&("oPnlTmp1"+cCompl) := &("oTela"+cCompl+":AddVerticalPanel( 25, cPnlDlg"+cCompl+" )")
&("oPnlTsOri"+cCompl) := &("oTela"+cCompl+":AddVerticalPanel( 100, cPnlDlg"+cCompl+" )")
&("oTitOrig"+cCompl) := tSay():New( 03, 05, { || STR0196 },&("oTela"+cCompl+":GetPanel(oPnlTsOri"+cCompl+")"), , , , , , .T., CLR_BLACK, , 100, 10 )
EndIf
&("nSoma1"+cCompl) := 0
&("nSoma2"+cCompl) := 0
&("aCampos"+cCompl) := {}
For ni := 2 to Len(aValores[nj])
aAdd( &("aCampos"+cCompl) , {"", "", "", ""})
&( utemp + "_TIT1" ) := TJurPnlCampo():New( 10+((ni-1)*12), 05, 070, 012,;
&("oTela"+cCompl+":GetPanel(oPnlTsOri"+cCompl+")"),;
"", "",;
{ || },;
{ || },;
aValores[nj][ni][3],;
/*lVisivel*/, /*lEnable*/, )
cNi := StrZero(ni-1,3)
&("aCampos"+cCompl+"["+cNi+"][1]") := &( utemp + "_TIT1" )
&("aCampos"+cCompl+"["+cNi+"][1]:Valor") := aValores[nj][ni][3]
&("aCampos"+cCompl+"["+cNi+"][1]:oCampo:bWhen") := { || .F. }
&( utemp + "_VAL1" ) := TJurPnlCampo():New( 10+((ni-1)*12), 75, 050, 012,;
&("oTela"+cCompl+":GetPanel(oPnlTsOri"+cCompl+")"),;
"", "",;
{ || },;
{ || },;
aValores[nj][ni][4],;
/*lVisivel*/, /*lEnable*/, )
&("aCampos"+cCompl+"["+cNi+"][2]") := &( utemp + "_VAL1" )
&("aCampos"+cCompl+"["+cNi+"][2]:Valor") := aValores[nj][ni][4]
&("aCampos"+cCompl+"["+cNi+"][2]:oCampo:bWhen") := { || .F. }
&("aCampos"+cCompl+"["+cNi+"][2]:oCampo:Picture") := "@E 99,999,999,999.99"
If aValores[nj][ni][1] == "+"
&("nSoma1"+cCompl) := &("nSoma1"+cCompl) + aValores[nj][ni][4]
ElseIf aValores[nj][ni][1] == "-"
&("nSoma1"+cCompl) := &("nSoma1"+cCompl) - aValores[nj][ni][4]
EndIf
IF lExibeNac .or. AllTrim(aValores[nj][1]) <> SuperGetMV( 'MV_JMOENAC',, '01' )
&( utemp + "_TIT2" ) := TJurPnlCampo():New( 10+((ni-1)*12), 05, 070, 012,;
&("oTela"+cCompl+":GetPanel(oPnlTsDes"+cCompl+")"),;
"", "",;
{ || },;
{ || },;
aValores[nj][ni][5],;
/*lVisivel*/, /*lEnable*/, )
&("aCampos"+cCompl+"["+cNi+"][3]") := &( utemp + "_TIT2" )
&("aCampos"+cCompl+"["+cNi+"][3]:Valor") := aValores[nj][ni][5]
&("aCampos"+cCompl+"["+cNi+"][3]:oCampo:bWhen") := { || .F. }
&( utemp + "_VAL2" ) := TJurPnlCampo():New( 10+((ni-1)*12), 75, 050, 012,;
&("oTela"+cCompl+":GetPanel(oPnlTsDes"+cCompl+")"),;
"", "",;
{ || },;
{ || },;
aValores[nj][ni][6],;
/*lVisivel*/, /*lEnable*/, )
&("aCampos"+cCompl+"["+cNi+"][4]") := &( utemp + "_VAL2" )
&("aCampos"+cCompl+"["+cNi+"][4]:Valor") := aValores[nj][ni][6]
&("aCampos"+cCompl+"["+cNi+"][4]:oCampo:bWhen") := { || .F. }
&("aCampos"+cCompl+"["+cNi+"][4]:oCampo:Picture") := "@E 99,999,999,999.99"
If aValores[nj][ni][1] == "+"
&("nSoma2"+cCompl) := &("nSoma2"+cCompl) + aValores[nj][ni][6]
ElseIf aValores[nj][ni][1] == "-"
&("nSoma2"+cCompl) := &("nSoma2"+cCompl) - aValores[nj][ni][6]
EndIf
EndIf
Next ni
&("oTotal1"+cCompl) := TJurPnlCampo():New( 12+((ni-1)*12), 75, 050, 012,;
&("oTela"+cCompl+":GetPanel(oPnlTsOri"+cCompl+")"),;
"", "",;
{ || },;
{ || },;
&("nSoma1"+cCompl),;
/*lVisivel*/, /*lEnable*/, )
&("oTotal1"+cCompl+":Valor") := &("nSoma1"+cCompl)
&("oTotal1"+cCompl+":oCampo:bWhen") := { || .F. }
&("oTotal1"+cCompl+":oCampo:Picture") := "@E 99,999,999,999.99"
IF lExibeNac .or. AllTrim(aValores[nj][1]) <> SuperGetMV( 'MV_JMOENAC',, '01' )
&("oTotal2"+cCompl) := TJurPnlCampo():New( 12+((ni-1)*12), 75, 050, 012,;
&("oTela"+cCompl+":GetPanel(oPnlTsDes"+cCompl+")"),;
"", "",;
{ || },;
{ || },;
&("nSoma2"+cCompl),;
/*lVisivel*/, /*lEnable*/, )
&("oTotal2"+cCompl+":Valor") := &("nSoma2"+cCompl)
&("oTotal2"+cCompl+":oCampo:bWhen") := { || .F. }
&("oTotal2"+cCompl+":oCampo:Picture") := "@E 99,999,999,999.99"
EndIF
&("oTitObs"+cCompl) := tSay():New( 03, 05, { || STR0198 },&("oTela"+cCompl+":GetPanel(cPnlBot"+cCompl+")"), , , , , , .T., CLR_BLACK, , 100, 10 ) //"OBS.: Não dedução de impostos"
@ 010,220 Button STR0123 Size 045,012 PIXEL OF &("oTela"+cCompl+":GetPanel(cPnlBot"+cCompl+")") Action (oDlg:End() ) //"Sair"
Next
ACTIVATE MSDIALOG oDlg CENTERED
Return .T.
04. ASSUNTOS RELACIONADOS
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas