Ponto-de-Entrada: OX004DCP - Como Pagar
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
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:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lRet (logico)
- Aborta ou Continua a Operação
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
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |