Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • AM080Ger - Geração da Nota Fiscal

Ponto-de-Entrada: AM080Ger - Geração da Nota Fiscal
Abrangências: Microsiga Protheus 8.11 , Microsiga Protheus 10
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição: 
Criação do ponto de entrada "AM080Ger" para verificar se realiza a geração da nota fiscal da simulação (Tabela JJ2)  de geração de nota GE x Fiscal.
Programa Fonte 
ACAM080.prw
Sintaxe

AM080Ger - Geração da Nota Fiscal ( [ Paramixb[1] ], [ Paramixb[2] ], [ Paramixb[3] ], [ Paramixb[4] ], [ Paramixb[5] ], [ Paramixb[6] ], [ Paramixb[7] ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Paramixb[1] Caracter Código de processamento do lote. Campo JJ2_NUMPRO.
Paramixb[2] Array of Record Código do cliente.
Paramixb[3] Array of Record Código da loja do cliente.
Paramixb[4] Array of Record Código do curso vigente.
Paramixb[5] Array of Record Valor total a ser gerada a NF. Campo JJ2_VALOR.
Paramixb[6] Array of Record Valor total da dedução. Campo JJ2_DEDUC.
Paramixb[7] Array of Record Número do RA, caso o agrupamento da simulação for por Aluno.
Retorno
    lRet()
  • Retorna .T. se gera a NF para a linha da simulação (JJ2), retorna .F. se não deve gerar a NF.
Observações

Ao chamar este ponto de entrada, a rotina já está posicionada nas tabelas JAF(Curso padrão), SA1( Clientes) , SF4 (Tipo de entrada e saída), SB1(Produto).

Exemplos 
User function AM080Ger ()Local cProcLote := ParamIxb[1]Local cCliente := ParamIxb[2]Local cLoja := ParamIxb[3]Local cCurso := ParamIxb[4]Local cValor := ParamIxb[5]Local cDeduc := ParamIxb[6]Local cRA :=ParamIxb[7]Local lRet := .T.If !Empty(cRA)	If cValor == cDeduc		lRet := .F.	EndIfEndifReturn lRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não