Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function F80L9816() 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()) dbSetOrder(1) dbSeek(xFilial('SED')+SE2->E2_NATUREZ) If ED_CALCIRF=='S' //-- Retorna taxa na data solicitada nTaxa:=RecMoeda(dDtTaxa,SE2->E2_MOEDA) EndIF RestArea(aAreaSED) EndIF RestArea(aArea) Return(nTaxa) |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas