Linha Microsiga Protheus

Árvore de páginas

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