Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OX004DCP - Como Pagar
Descrição: Ponto de Entrada localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado após a montagem da tela de (como pagar), para a gravação de log. Eventos User Function OX001AEX() lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”) return lRet Programa Fonte OFIXX004.PRW Sintaxe OX004DCP - Como Pagar ( [ ] ) --> lRet Parâmetros:
Retorno
Observações // Caso a condicao nao seja negociada o saldo sera zero nTotParc := 0 for nCntFor := 1 to Len(oGetP004:aCols) if !(oGetP004:aCols[nCntFor,Len(oGetP004:aCols[nCntFor])]) nTotParc += oGetP004:aCols[nCntFor,FG_POSVAR("VS9_VALPAG","aHeaderCP")] endif next nSaldo := nValTot-nTotParc if VS1->(FieldPos("VS1_VALDUP")) > 0 nSaldo := nValDup-nTotParc endif cSaldo := Transform(nSaldo,"@E 999,999,999.99") oSaldo:CtrlRefresh() //############################################################################### //# Reordena a aCols por ordem de data # //############################################################################### OX004REORD() // if ExistBlock("OX004DCP") if !ExecBlock("OX004DCP",.f.,.f.) Return(.f.) Endif Endif return .t. Variáveis
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas