Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Jose Moises Vera Concha

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Jose Moises Vera Concha

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


01. 

...

DATOS GENERALES

Linha Línea Protheus

ModulosCrossSegmentos
ProdutoProducto:

Solucoes_totvs_cross
SolucaoCrossTOTVS Backoffice

Linha Línea de Produtoproducto:

Linhas_totvs
Linha
Segmento:

Segmentos_totvs
SegmentoBackoffice

Módulo:
Modulos_cross_segmentos

TOTVS Backoffice (Linha Línea Protheus) - Financeiro Financiero (SIGAFIN)

FunçãoFunción:NGFJOBF75 


02.

...

DESCRIPCIÓN

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. 


03.

...

EJEMPLO DE

...

UTILIZACIÓN

Bloco de código
languagejs
themeMidnight
firstline1
titleNGFJOBF7A
linenumberstrue
#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

...