...
03. SOLUÇÃO
O ponto de entrada CT102CARR efetua o tratamento no momento de carregar os dados para o temporário. Este permite a leitura dos dados na tabela temporária criada ao realizar as operações da rotina de Alteração, Exclusão, Visualização, Copia ou Estorn, Sendo assim o ponto de entrada tem a função de manipular o temporário no momento da leitura com os dados do lançamento posicionado e sua operação realizada para a implementação de alguma regra em especifico com os dados disponibilizados.
| Informações |
|---|
|
| Bloco de código |
|---|
| language | c# |
|---|
| theme | RDark |
|---|
| title | Exemplo PE |
|---|
| linenumbers | true |
|---|
| collapse | true |
|---|
| #include 'totvs.ch'
#include "rwmake.ch"
User Function Ct102Carr()
//retorno da rotina nOpc,dDataLanc,cLote,cSubLote,cDoc
Local nOpcRot := PARAMIXB[1]
Local dDataLancRot := PARAMIXB[2]
Local cLoteRot := PARAMIXB[3]
Local cSubLoteRot := PARAMIXB[4]
Local cDocRot := PARAMIXB[5]
Local cTpSald := "
cTpSald:= TMP->CT2_TPSALD
If cTpSald == "1"
alert("Acessado PE " + " / Operação " + STR(nOpcRot) + "/ Data " + DTOC(dDataLancRot) + "/ Lote " + cLoteRot + "/ SubLote " + cSubLoteRot + "/ Documento " + cDocRot)
//Funcaoxpto(nOpcRot,dDataLancRot,cLoteRot,cSubLoteRot,cDocRot)
EndIF
Return |
| Informações |
|---|
| Para acessar a leitura das informações do TMP pode se ter a seguinte escrita para manipulação e visualização do lançamento posicionado:
TMP→ "CAMPO DA CT2 QUE DESEJA VISUALIZAR colocando ponteirado antes o TMP "
Exemplo: TMP→CT2_TPSALD
|
| Aviso |
|---|
- O ponto de entrada só é utilizado para leitura e manipulação dos parâmetros passados ao PE e as informações do registro posicionado no TMP.
- O ponto de entrada pode ser utilizado ao acessar as opções de: Alteração, Exclusão, Visualização, Copia e Estorno na rotina de Lançamento Padrão Automático- CTBA102.
|
| Bloco de código |
|---|
| language | c# |
|---|
| theme | RDark |
|---|
| title | Exemplo do PE no sistema |
|---|
| linenumbers | true |
|---|
| collapse | true |
|---|
| IF _lCt102Carr
ExecBlock("Ct102Carr",.F.,.F.,{ nOpc,dDataLanc,cLote,cSubLote,cDoc } )
Endif |
|
...
