Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: DARFVAL - Alteração de valor dos juros e multa
Descrição:
Programa Fonte DARFVAL.PRW Sintaxe DARFVAL - Alteração de valor dos juros e multa ( < aInfo> ) --> aInfo Parâmetros:
Retorno
Exemplos #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) |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas