DARFVAL - Alteração de valor dos juros e multa -- 11567

O ponto de entrada DARFVAL permite ao usuário alterar o valor dos juros e multa do título a pagar, no momento de impressão do documento DARF. A alteração poderá ser realizada título a titulo durante a impressão do documento.

DARFVAL.PRW

DARFVAL - Alteração de valor dos juros e multa ( < aInfo> ) --> aInfo

aInfo(vetor)
• Informações do título a pagar alteradas através do ponto de entrada DARFVAL

#Include "Protheus.ch"// Atualiza o vetor com as novas informações alteradas pelo usuárioUser Function DARFVAL()Local aArea   := GetArea()Local aNwInfo := ParamIxb[1]                                                  Local nXFor nX := 1 to Len(aNwInfo)   aNwInfo[nX] := WinGetVal(nX, aNwInfo[nX])                           NextRestArea(aArea)Return(aNwInfo)// Cria tela e permite alterar algumas informações do título a pagar que será impresso // no documento DARF.Static Function WinGetVal(nPos, aValores)Local aArea := GetArea()Local nRec  := 0Local nValP := 0Local nValM := 0Local nValJ := 0Local nLin  := 1Local lShow := .F.Local oDlgLocal oGet1, oGet2, oGet3, oGet4, oGet5, oGet6Local cCod, cPerc// Atualização variaveis Get.nRec  := MV_PAR10nPerc := MV_PAR11cCod  := aValores[4]nValP := aValores[7]nValM := aValores[8]nValJ := aValores[9]Define MsDialog oDlg Title "Valores DARF" From 0,0 To 290,380 Pixel Of oDlg STYLE DS_MODALFRAME STATUS	@ nLin,002 Say "Código da Receita : " Of oDlg@ nLin,015 MsGet oGet1 Var cCod Size 040,09 Of oDlg When .F.nLin += 1.5@ nLin,002 Say "Valor da Receita Bruta Acumulada:" Of oDlg@ nLin,015 MsGet oGet2 Var nRec Size 040,09 Picture "@E 999,999,999.99" Of oDlg When .F.nLin += 1.5@ nLin,002 Say "Percentual        : " Of oDlg@ nLin,015 MsGet oGet3 Var nPerc Size 040,09 Picture "@E 999.99" Of oDlg When .F.nLin += 1.5@ nLin,002 Say "Valor do Principal: " Of oDlg@ nLin,015 MsGet oGet4 Var nValP Size 040,09 Picture "@E 999,999,999.99" Of oDlg When .F.nLin += 1.5@ nLin,002 Say "Valor da Multa    : " Of oDlg@ nLin,015 MsGet oGet5 Var nValM Size 050,09 Picture "@E 999,999,999.99" Of oDlg When .T.nLin += 1.5@ nLin,002 Say "Valor dos Juros   : " Of oDlg@ nLin,015 MsGet oGet6 Var nValJ Size 050,09 Picture "@E 999,999,999.99" Of oDlg When .T.nLin += 4.3@ nLin,036 Button "OK" Size 025, 010 Action oDlg:End() Of oDlgActivate MsDialog oDlg NoModal Centered// Atualiza valores na tabelaRecLock("SE2", .F.)SE2->E2_MULTA := nValMSE2->E2_JUROS := nValJSE2->(MsUnlock())	// Atualiza valores do vetoraValores[8] := nValM // Valor MultaaValores[9] := nValJ // Valor JurosRestArea(aArea)           Return(aValores)