Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "TOTVS.CH" /*/{Protheus.doc} User Function F280ORI (Ponto de entrada para manipular/gravar dados nos titulos que originaram a fatura.) @type Function @author Cassio S. Dias @since 08/11/2023 @version 12.1.2310 @return nil @see (links_or_referenceshttps://tdn.totvs.com/pages/editpage.action?pageId=804044938) //SEV - Múltiplas Naturezas por Título //SE1 - Contas a Receber /*/ User Function F280ORI() local cCodCli:="FINC25" local cLojCli:="01" local cPrfTit:=" " local cNumTit:="CT44003 " local cParc:="A" local cTipTit:="FT" Local aDados:={} aDados :={cCodCli, cLojCli, cPrfTit,cNumTit,cParc,cTipTit} dbSelectArea("SE1") dbSetOrder(2) //INDICE[2] -> E1_FILIAL+E1_CLIENTE+E1_LOJA+E1_PREFIXO+E1_NUM+E1_PARCELA+E1_TIPO if dbseek(xFilial("SE1")+aDados[1]+aDados[2]+aDados[3]+aDados[4]+aDados[5]+aDados[6]) IF SE1->E1_ORIGEM == "FINA280 " Reclock("SE1",.F.) SE1->E1_HIST :='P.E F280ORI' MsUnlock() ENDIF ENDIF Return nil |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas