Histórico da Página
01. DADOS GERAIS
Produto: |
| ||||
---|---|---|---|---|---|
Linha de Produto: |
| ||||
Segmento: |
| ||||
Módulo: |
| ||||
Função: | F280ORI F280DTVC |
02. DESCRIÇÃO
Ponto de entrada F280ORI para manipular/gravar dados nos titulos que originaram a fatura. F280DTVC permite validar ou manipular as datas de vendimentos das parcelas do desdobramento)
Tabelas posicionadas:
No momento da chamada do ponto de entrada será posicionado nas tabelas.estará posicionado na tabela.
SEV - Múltiplas Naturezas por Título
SE1 - Contas a Receber
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "TOTVS.CH" /*/{Protheus.doc} User Function F280ORIF280DTVC (Ponto de entrada para manipular/gravar dados nos titulos que originaram a fatura.tratar as datas de vendimentos das parcelas do desdobramento) @type Functionlogical @author Cassio S. Dias @since 0814/11/2023 @version 12.1.2310 @return nil @see (links_or_references) @param param_name, param_type, param_descr //SEV - Múltiplas Naturezas por Título //SE1 - Contas a Receber@return lRet, logical @see (https://tdn.totvs.com/x/isDsLw) /*/ User Function F280ORIF280DTVC(dDataVc) as logical localLocal lRet 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.T. if dDataVc < dDataBase MSGALERT( "A data de vencimento está menor que a database. Necessário ajustar", "Data Menor" ) lRet :=.F. ENDIF Return nillRet |
Templatedocumentos |
---|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas