Histórico da Página
Alteração do Conteúdo Importado
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||||||||
Segmento: | Serviços | ||||||||||||||||
Módulo: | SIGACTB | ||||||||||||||||
Rotina: |
| ||||||||||||||||
Ponto de Entrada: | CTARQRAT | ||||||||||||||||
Requisito (ISSUE): Informe o requisito relacionado (Issue). | PCREQ-4007 | ||||||||||||||||
País(es): | Todos | ||||||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||||||
Tabelas Utilizadas: | CT9, CTQ, CTJ | ||||||||||||||||
Sistema(s) Operacional(is): | Todos | ||||||||||||||||
Versões/Release: | 12.1.7 |
Descrição
Ponto de entrada desenvolvido na função CTBArqRat com o objetivo de alterar o conteúdo do arquivo que está sendo importado, é chamado linha a linha na leitura do item do arquivo importado.
Ponto de Entrada
Descrição: | Ponto de entrada para manipular os dados do arquivo importado passando linha a linha na leitura do arquivo | ||||||||||||||||
Localização: | CTBArqRat | ||||||||||||||||
Eventos: | Atualizações / Rateios / Rateio On-Line Atualizações / Rateios / Rateio Externo Atualizações / Rateios / Rateio Off-Line | ||||||||||||||||
Programa Fonte: | CTBA100 | ||||||||||||||||
Função: | Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”CTBArqRat | ||||||||||||||||
Retorno: |
|
aRet - array contendo o conteúdo da linha do arquivo. |
Exemplo:
#Include 'Protheus.ch'User Function CN120ALT
//Ponto de entrada para manipular os dados do arquivo importado passando linha a linha na leitura do arquivo
user function CTARQRAT()
Local
cRotina := PARAMIXB[1] //Rotina que foi chamada
Local
aHeader := PARAMIXB[2]
If cTipo == '1'
aCab[4][2]:= 'NF' //Validações do usuário
EndIf
Return aCab
Inclusão Ponto de Entrada
Características do Requisito
Linha de Produto: | Inclusão Ponto de Entrada | ||||||||||
Segmento: | Informe o segmento. | ||||||||||
Módulo: | Informe o módulo. | ||||||||||
Rotina: |
| ||||||||||
Cadastros Iniciais: | Relacione os cadastros necessários que precisam ser preenchidos antes da utilização desse requisito. | ||||||||||
Parâmetro(s): | Informe os parâmetros utilizados. | ||||||||||
Ponto de Entrada: | Informe o ponto de entrada relacionado (link). | ||||||||||
Chamados Relacionados | Informe o(s) chamado(s) relacionado(s). | ||||||||||
Requisito (ISSUE): | Informe o requisito relacionado (Issue). | ||||||||||
País(es): | Informe o(s) Pais(es). | ||||||||||
Banco(s) de Dados: | Informe o(s) Banco(s) de Dados utilizado(s). | ||||||||||
Tabelas Utilizadas: | Informe as tabelas utilizadas. | ||||||||||
Sistema(s) Operacional(is): | Informe o(s) sistema(s) operacional(is) utilizados. | ||||||||||
Versões/Release: | Informe as versões. | ||||||||||
Versão Corrigida: | Versão na qual está sendo feita a manutenção deste programa. | ||||||||||
Versão Expedida: | Versão em que o programa será oficialmente expedido. |
Descrição
Escreva aqui a descrição da nova implementação ou melhoria.
//Cabeçalho do arquivo
Local aCols := PARAMIXB[3] //Itens do arquivo
Local nPosFil := 0
/*
PARAMIXB[1] - Rotina que foi chamada
"CTBA100" - Rateio On Line
"CTBA120" - Rateio Externo
"CTBA270" - Rateio Off Line
PARAMIXB[2] - array contendo os campos de cabeçalho do arquivo
aHeader[1] - "CT9_FILIAL"
aHeader[2] - "CT9_SEQUEN"
aHeader[3] - "CT9_DESC"
aHeader[4] - "CT9_PERBAS"
PARAMIXB[3] - array com conteudo lido na linha do arquivo
aCols[1] - "01"
aCols[2] - "00001"
aCols[3] - "RATEIO ON LINE"
aCols[4] - "100.00"
*/
//Altera o valor da Filial
If cRotina == "CTBA100" //Rateio On Line
nPosFil := ASCAN(aHeader, "CT9_FILIAL" ) //pega a posição da filial no cabeçalho
If aCols[nPosFil] == "01"
aCols[nPosFil] := FwxFilial("CT9")
EndIf
ElseIf cRotina == "CTBA120" //Rateio Externo
nPosFil := ASCAN(aHeader, "CTJ_FILIAL" ) //pega a posição da filial no cabeçalho
If aCols[nPosFil] == "01"
aCols[nPosFil] := FwxFilial("CTJ")
EndIf
Else //"CTBA270" Rateio Off Line
nPosFil := ASCAN(aHeader, "CTQ_FILIAL" ) //pega a posição da filial no cabeçalho
If aCols[nPosFil] == "01"
aCols[nPosFil] := FwxFilial("CTQ")
EndIf
EndIF
Return aCols
Ponto de Entrada
Descrição: | Informe o Menu em que estará localizada a rotina | ||||||||||||||||
Localização: | Informe o Submenu em que estará localizada a rotina | ||||||||||||||||
Eventos: | Informe o Título da rotina | ||||||||||||||||
Programa Fonte: | Informe o Fonte da rotina | ||||||||||||||||
Função: | Informe o Nome do(s) produto(s) a ser utilizado ou “Todos” | ||||||||||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function CN120ALT()
Local aCab:= PARAMIXB[1]
Local cTipo:= PARAMIXB[2]
If cTipo == '1'
aCab[4][2]:= 'NF' //Validações do usuário
EndIf
Return aCab