Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH"
User Function F90L9816()
Local cChave := ParamIXB[1]
Local dDtBaixa := ParamIXB[2]
Local dDtDebito := ParamIXB[3]
Local nOpc := ParamIXB[4]
Local dDtTaxa := dDataBase
Local aArea := GetArea()
Local aAreaSED := NIL
Local nTaxa := 0
dDtTaxa:=dDtBaixa-2
If SA2->A2_TIPO=='X' .And. SE2->E2_MOEDA > 1
dbSelectArea('SED')
aAreaSED := SED->(GetArea())
SED->(dbSetOrder(1))
SED->(dbSeek(xFilial('SED')+SE2->E2_NATUREZ))
If SED->ED_CALCIRF=='S'
//-- Retorna taxa na data solicitada
nTaxa:= 5
EndIF
RestArea(aAreaSED)
EndIF
RestArea(aArea)
Return(nTaxa) |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas