...
| ProdutoProducto: |
| ||||
|---|---|---|---|---|---|
| Linha Línea de Produtoproducto: |
Linha | Linha Línea Protheus | |||
| Segmento: |
| ||||
| Módulo: | |||||
| Modulos_cross_segmentos | TOTVS Backoffice (Linha Línea Protheus) - Financeiro Financiero (SIGAFIN) | ||||
| FunçãoFunción: | NGFJOBF75 |
...
Ponto Punto de entrada NGFJOBF75 é acionado ao final da gravação de um título na tabela F75 através do se activa al final de la grabación de un título en la tabla F75 através del job FINA711 para que seja realizada gravações complementaresse realicen grabaciones complementarias.
...
...
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "totvs.ch"
/*/{Protheus.doc} NGFJOBF75
PontoPunto de entrada para gravaçõesgrabaciones complementarias complementaresen nala F75.
ExemploEjemplo comcon regraregla de grabación gravaçãode dala taxatasa da moedamoneda para títulos já baixados em moeda estrangeiraya dados de baja en moneda extranjera.
ComCon regraregla para mantermantener ala taxatasa contratada sesi existirexistiera noenel título
/*/
User Function NGFJOBF75()
Local cAlias As Character
Local cField As Character
Local dDtBaixa As Date
Local nTaxa As Numeric
Local aArea As Array
Local aAreaAlias As Array
If F75->F75_SALDO = 0 .AND. F75->F75_MOEDA > 0
aArea := GetArea()
// Verifica ala carteiracartera para posteriormente situar posicionaren nala tabelatabla corretacorrecta (SE1 ouo SE2)
If F75->F75_RECPAG == "R"
cAlias := "SE1"
cChave := F75->F75_FILORI + F75->F75_PREFIX + F75->F75_NUM + F75->F75_PARCEL + F75->F75_TIPO
cField := "E1_"
Else
cAlias := "SE2"
cChave := F75->F75_FILORI + F75->F75_PREFIX + F75->F75_NUM + F75->F75_PARCEL + F75->F75_TIPO +F75->F75_CLIFOR + F75->F75_LOJA
cField := "E2_"
EndIf
aAreaAlias := (cAlias)->(GetArea())
DbSelectArea(cAlias)
(cAlias)->(DbSetOrder(1))
If (cAlias)->(MsSeek(cChave))
If (cAlias)->&(cField + "TXMOEDA") > 0
nTaxa := (cAlias)->&(cField + "TXMOEDA")
Else
dDtBaixa := (cAlias)->&(cField + "BAIXA")
nTaxa := RecMoeda(dDtBaixa, F75->F75_MOEDA)
EndIf
EndIf
// Modifica la Alteratasa ade taxala damoneda moedaen noel campo F75_TXMOED, para entender la grabación de gravação desseeste campo verifique ala documentaçãodocumentación
//https://tdn.totvs.com.br/pages/releaseview.action?pageId=622668231
If nTaxa > 0
RecLock("F75", .F.)
F75->F75_TXMOED := nTaxa
F75->(MSUnlock())
EndIf
RestArea(aAreaAlias)
RestArea(aArea)
EndIf
Return NIL |
...
