Linha Microsiga Protheus

Árvore de páginas

Função: MATA467n - Nota Fiscal Manual


Abrangências:Microsiga Protheus 10, Microsiga Protheus 11 e Microsiga Protheus 12
Compatível Países:Localizados
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todas TotvsDbAccess


Descrição:
Função utilizada para a geração de Nota Fiscal manual via rotina automática (ExecAuto).

IMPORTANTE: 
A opção "6-Cancelar" é pertinente às versões Protheus 11 e Protheus 12
Programa Fonte:
LocxNF.prw
Síntaxe:

Mata467n - Nota Fiscal Manual ( aCab, aItens, nOpc ) --> Nil

Retorno:
    Nil (Nulo)
Exemplos:
User Function MyMt467n()

Local aCab	    	:= {}
Local aLinha    	:= {}
Local aItens    	:= {}

Private lMsErroAuto := .T.

AAdd( aCab, { "F2_CLIENTE", "000001"	        	, Nil } )	
AAdd( aCab, { "F2_LOJA"   , "01"			, Nil } )	
AAdd( aCab, { "F2_SERIE"  , "UNI"			, Nil } )	 
AAdd( aCab, { "F2_DOC"    , "00000000000000000003"	, Nil } )	  		 
AAdd( aCab, { "F2_COND"   , "001"	   		, Nil } )	 
AAdd( aCab, { "F2_LOJA"   , "01"    			, Nil } )	   
AAdd( aCab, { "F2_EMISSAO", dDataBase			, Nil } )	   
AAdd( aCab, { "F2_EST"    , "01"		        , Nil } )  	
AAdd( aCab, { "F2_TIPO"   , "N"		               	, Nil } )  
AAdd( aCab, { "F2_ESPECIE", "NF   "		        , Nil } ) 
AAdd( aCab, { "F2_PREFIXO", "UNI"		        , Nil } ) 
AAdd( aCab, { "F2_MOEDA"  , 1		               	, Nil } ) 
AAdd( aCab, { "F2_TXMOEDA", 1		               	, Nil } ) 
AAdd( aCab, { "F2_FORMUL" , "S"		               	, Nil } ) 
AAdd( aCab, { "F2_TIPODOC", "01"		        , Nil } ) 

aLinha := {}				
AAdd( aLinha, { "D2_COD"    , "000001"	        	, Nil } )
AAdd( aLinha, { "D2_QUANT"  , 10			, Nil } )					
AAdd( aLinha, { "D2_PRCVEN" , 100			, Nil } )					
AAdd( aLinha, { "D2_TOTAL"  , 1000			, Nil } )
AAdd( aLinha, { "D2_TES"    , "501" 		        , Nil } )
AAdd( aLinha, { "D2_UM"     , "UN" 			, Nil } )
AAdd( aLinha, { "D2_ESPECIE", "NF   " 		        , Nil } )
AAdd( aItens, aLinha)

MSExecAuto( { |x,y,z| Mata467n(x,y,z) }, aCab, aItens, 3 )   //3-Incluir, 5-Excluir e 6-Cancelar

If lMsErroAuto		
   MsgStop("Erro na gravação.")	
   MostraErro()
Else	
   MsgAlert('Incluido com sucesso.')	
EndIf

Return
Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

aCab

Array of Record

Array contendo os dados do cabeçalho.




X




aItens

Array of Record

Array contendo os dados dos itens.




X




nOpc

Array of Record

Opção da rotina, sendo: 3- Incluir, 5- Excluir e 6- Cancelar




X