Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

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

Versões comparadas

Versão antiga 1

changes.mady.by.user Nuria Fauró Campos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
AM080Ger - Geração da Nota Fiscal
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:
NomeTipoDescriçãoDefaultObrigatórioReferência
Paramixb[1]CaracterCódigo de processamento do lote. Campo JJ2_NUMPRO.
Paramixb[2]Array of RecordCódigo do cliente.
Paramixb[3]Array of RecordCódigo da loja do cliente.
Paramixb[4]Array of RecordCódigo do curso vigente.
Paramixb[5]Array of RecordValor total a ser gerada a NF. Campo JJ2_VALOR.
Paramixb[6]Array of RecordValor total da dedução. Campo JJ2_DEDUC.
Paramixb[7]Array of RecordNú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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão