Histórico da Página

#INCLUDE "TBICONN.CH"

USER Function MA103AUT()	

Local	aCabs	:=	{}	
Local	aItens	:=	{}	
Local   cDoc    := "000007"	

PRIVATE lMsErroAuto := .F.	

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "XIFIS26" MODULO "COM" TABLES "SF1","SD1","SA1","SA2","SB1","SB2","SF4","SED","SE2"    

//Montagem da capa do documento fiscal		
aAdd(aCabs, {'F1_TIPO   ', 'N'				,})	
aAdd(aCabs, {'F1_FORMUL ', 'N'				,})	
aAdd(aCabs, {'F1_DOC    ', cDoc				,})	
aAdd(aCabs, {'F1_SERIE  ', 'AUT'			,})	
aAdd(aCabs, {'F1_EMISSAO', dDataBase		,})	
aAdd(aCabs, {'F1_FORNECE', 'SP0001'			,})	
aAdd(aCabs, {'F1_LOJA   ', '01'    			,})	
aAdd(aCabs, {'F1_ESPECIE', 'NF'    			,})	
aAdd(aCabs, {'F1_COND   ', '001'			,})		
aadd(aCabs, {'E2_NATUREZ',""			    ,})			

//Os valores de impostos somente devem ser informados caso NAO deva ser efetuado o calculo 	
//	automático pelas rotinas fiscais do sistema.	
//Normalmente as referencias de impostos são passadas quando a importação automática vem	
//	de uma integração com outro sistema, onde todos os valores jah foram calculados e 	
//	NAO podem ser alterados.	

aAdd(aCabs, {'F1_BASEICM',	100				,})	
//Base	

aAdd(aCabs, {'F1_BASEIPI',	40				,})	
//Base	

aAdd(aCabs, {'F1_VALICM ',	10				,})	
//Valor imposto	

aAdd(aCabs, {'F1_VALIPI ',	4				,})	
//Valor imposto	

//Montagem dos itens do documento fiscal (1. item)			
aAdd(aItens, {})	
aAdd(aItens[Len(aItens)], {'D1_TES    ',	"021"	,})	
aAdd(aItens[Len(aItens)], {'D1_COD    ', 	'PA0000000000000000000000000001',})	
aAdd(aItens[Len(aItens)], {'D1_QUANT  ', 	1		,})	
aAdd(aItens[Len(aItens)], {'D1_VUNIT  ', 	100		,})	
aAdd(aItens[Len(aItens)], {'D1_TOTAL  ', 	100		,})	
aAdd(aItens[Len(aItens)], {'D1_CF     ', 	'1101'  ,})	
aAdd(aItens[Len(aItens)], {'D1_LOCAL  ', 	'01'	,})		

//O mesmo tratamento para os impostos comentados acima, vale para os itens tambem. Portanto soh 	
//	deve ser utilizado quando NAO houver necessidade que o sistema calcule automaticamente.	

aAdd(aItens[Len(aItens)], {'D1_PICM   ',	18		,})	
//Aliquota	

aAdd(aItens[Len(aItens)], {'D1_IPI    ',	18		,})	
//Aliquota	

aAdd(aItens[Len(aItens)], {'D1_BASEICM',	50		,})	
//Base	

aAdd(aItens[Len(aItens)], {'D1_BASEIPI',	20		,})	
//Base	

aAdd(aItens[Len(aItens)], {'D1_VALICM ',	5		,})	
//Valor imposto	

aAdd(aItens[Len(aItens)], {'D1_VALIPI ',	2		,})	
//Valor imposto	

//Montagem dos itens do documento fiscal (2. item)			
aAdd(aItens, {})	
aAdd(aItens[Len(aItens)], {'D1_TES    ',	"021"	,})	
aAdd(aItens[Len(aItens)], {'D1_COD    ', 	'PA0000000000000000000000000002',})	
aAdd(aItens[Len(aItens)], {'D1_QUANT  ', 	1		,})	
aAdd(aItens[Len(aItens)], {'D1_VUNIT  ', 	100		,})	
aAdd(aItens[Len(aItens)], {'D1_TOTAL  ', 	100		,})	
aAdd(aItens[Len(aItens)], {'D1_CF     ', 	'1101'  ,})	
aAdd(aItens[Len(aItens)], {'D1_LOCAL  ', 	'01'	,})	

//O mesmo tratamento para os impostos comentados acima, vale para os itens tambem. Portanto soh 	
//	deve ser utilizado quando NAO houver necessidade que o sistema calcule automaticamente.	
aAdd(aItens[Len(aItens)], {'D1_PICM   ',	18		,})	
//Aliquota	

aAdd(aItens[Len(aItens)], {'D1_IPI    ',	18		,})	
//Aliquota	

aAdd(aItens[Len(aItens)], {'D1_BASEICM',	50		,})	
//Base	

aAdd(aItens[Len(aItens)], {'D1_BASEIPI',	20		,})	
//Base	

aAdd(aItens[Len(aItens)], {'D1_VALICM ',	5		,})	
//Valor imposto	

aAdd(aItens[Len(aItens)], {'D1_VALIPI ',	2		,})	
//Valor imposto    	

//Chamada da rotina automatica	
MSExecAuto ({|x,y,z| MATA103 (x,y,z)}, aCabs, aItens, 3)		

//Tratamento de erro	
If !lMsErroAuto		
	ConOut(OemToAnsi("Documento "+cDoc+"/AUT gerado com sucesso!"))	
Else		
	ConOut(OemToAnsi("Erro na inclusão"))		
	MostraErro()	
EndIf		

RESET ENVIRONMENT	

Return .T.