Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Thiago Murakami Malaquias Da Silva

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Thiago Murakami Malaquias Da Silva

Gravado em

Chave

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

Inclusão Ponto de Entrada

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:


Rotina:

Rotina

Nome Técnico

CTBA100

Rateios On-Line

CTBA120

Rateios Externos
CTBA270Rateios Off-Line

Rotina(s) envolvida(s)

Nome Técnico

CTBA100

Rateios On-Line

 CTBA120Rateios Externos
CTBA270Rateios Off-Line

Ponto de Entrada:

CTARQRAT

Requisito (ISSUE): Informe o requisito relacionado (Issue).

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:

Nome

Tipo

Descrição

Obrigatório

 

 

 

 

 

 

 

 

 

 

 

 

 

aRet - array contendo o conteúdo da linha do arquivo.

 

Exemplo:

#Include 'Protheus.ch'User Function CN120ALT

//Ponoto de entrada para manipular os dados do arquivo importado passando linha a linha na leitura do arquivo
user function CTARQRAT()
Local

aCab

cRotina := PARAMIXB[1] //Rotina que foi chamada
Local

cTipo

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:

Rotina

Nome Técnico

Informe a rotina.

Informe o nome técnico da rotina.

Rotina(s) envolvida(s)

Nome Técnico

Informe a(s) rotina(s) envolvidas.

Informe o nome técnico da(s) rotina(s) envolvidas.

 

 

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:

Nome

Tipo

Descrição

Obrigatório

 

 

 

 

 

 

 

 

 

 

 

 

 

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