Histórico da Página

Composition Setup
import.css=/download/attachments/327912/newLayout.css

Portuguese

Pagetitle

	MATA140 - Pré - Documento de Entrada
	MATA140 - Pré - Documento de Entrada

Função: MATA140 - Pré - Documento de Entrada

Abrangências:	Microsiga Protheus 11 , Protheus 10
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Nível de Acesso:	Nível 1 (Acesso Clientes)
Idiomas:	Português (Brasil) , Português (Portugal) , Espanhol , Inglês

Descrição:

Esta rotina permite a inclusão de Notas Fiscais de Entrada sem os dados Fiscais, através do mecanismo de rotina automática.

Sintaxe:

MATA140 - Pré - Documento de Entrada ( aCabec, aItens, nOpc, lSimulaca, nTelaAuto )

Retorno:

(nulo)

Exemplos

Bloco de código

linenumbers	true

#INCLUDE "RWMAKE.CH" 
#INCLUDE "TBICONN.CH" 

User Function eMata140()

Local nOpc := 3 

	Private aCabec		:= {}
	Private aItens		:= {}
	Private aLinha		:= {}
	Private lMsErroAuto := .F.

	PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "SF1","SD1","SA1","SA2","SB1","SB2","SF4"
	
	aAdd(aCabec,{'F1_TIPO','N',NIL})
	aAdd(aCabec,{'F1_FORMUL','N',NIL})
	aAdd(aCabec,{'F1_DOC','000005',NIL})
	aAdd(aCabec,{"F1_SERIE","01",NIL})
	aAdd(aCabec,{"F1_EMISSAO",dDataBase,NIL})
	aAdd(aCabec,{'F1_FORNECE','000001',NIL})
	aAdd(aCabec,{'F1_LOJA','01',NIL})
	aAdd(aCabec,{"F1_ESPECIE","NF",NIL})
	aAdd(aCabec,{"F1_COND",'001',NIL})
	aAdd(aCabec,{"F1_TES",'',NIL})
	aAdd(aCabec,{"F1_STATUS",'',NIL})
	 
	aAdd(aItens,{'D1_COD',"01",NIL})
	aAdd(aItens,{"D1_QUANT",1,Nil})
	aAdd(aItens,{"D1_VUNIT",1,Nil})
	aAdd(aItens,{"D1_TOTAL",1,Nil})
	 
	aAdd(aLinha,aItens)
	 
	MSExecAuto({|x,y,z,a,b| MATA140(x,y,z,a,b)}, aCabec, aLinha, nOpc,,)
	 
	If lMsErroAuto 
		mostraerro()
	Else 
		Alert("Execauto MATA140 executado com sucesso!") 
	EndIf 
	
	RESET ENVIRONMENT
 
Return

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

aCabec

Array of Record

Cabeçalho da nota

X

aItens

Array of Record

Itens da Nota

X

nOpc

Array of Record

3 = Inclusão, 4 = Alteração, 5 = Exclusão, 7 = Estorna Classificação

X

lSimula

Lógico

.T. para habilitar simulação / .F. para desabilitar a simulação

nTelaAuto

Numérico

0 - Não mostra tela, 1 - Mostra tela e valida tudo, 2 - Mostra tela e valida somente cabeçalho

Árvore de páginas

Versões comparadas

Versão antiga 7

Nova versão 8

Chave