PC Toledo

Código: Selecionar todos

NFe.CriarEnviarNFe("[Identificacao]
NaturezaOperacao=DEVOLUCAO
Modelo=55
Serie=1
Codigo=1693
Numero=1688
Emissao=18/11/2020
Saida=18/11/2020
tpNF=1
idDest=1
Finalidade=4
FormaPag=0
indFinal=0
[NFREF001]
refNFe=
Tipo=NFE  
indPres=1
[Emitente]
CNPJ=00000000000000
IE=0000000000
Razao=xxxxx               
Fantasia=vvvvvvvvvv
Fone=73
CEP=45810000
Logradouro=RUA NOVE DE AGOSTO, 71            
Numero=71   
Complemento=
Bairro=TRANCOSO       
CidadeCod=2925303
Cidade=PORTO SEGURO                  
UF=BA
CRT=1
[Destinatario]
CNPJ=45865920000372
indIEDest=1
IE=049323360
NomeRazao=MAKITA DO BRASIL FERRAMENTAS ELETRICAS LTDA                           
Fone=              
CEP=42700000
Logradouro=RUA ITAGI
Numero=00491
Complemento=                                        
Bairro=PITANGUEIRAS                  
CidadeCod=2919207
Cidade=LAURO DE FREITAS
UF=BA
[autXML001]
CNPJ=13.937.073/0001-56
[autXML002]
CNPJ=10.687.881/0001-14
[Produto001]
cEAN=SEM GTIN      
CFOP=5202
indTot=1
Codigo=009669        
Descricao=MAK.PLAINA KP0800/K 620W ELETRICA                           
NCM=84672999
Cest=       
Unidade=UN-
Quantidade=2.000
ValorUnitario=523,21
ValorDesconto=0,0000
ValorTotal=1046,42
cEANTrib=SEM GTIN      
[ICMS001]
CST=00
Origem=5
CSOSN=102
ValorBase=511,59
Aliquota=18,00
Valor=92,09
[Total]
vBC=511,59
vICMS=92,09
vBCST=0,00
vST=0,00
vProd=1046,42
vFrete=0,00
vSeg=0,00
vDesc=0,00
vIPI=0,00
vPIS=0,00
vCOFINS=0,00
vOutro=83,71
vNF=1130,13
[Transportador]
modFrete=9
CNPJCPF=              
xNome=                                                            
IE=              
xEnder=                                                            
xMun=                                                            
UF=  
Placa=       
UFPlaca=  
RNTC=                    
[Volume001]
Quantidade=0
Especie=                                                            
Marca=                                                            
PesoLiquido=0.000
PesoBruto=0.000
[PAG001]
indpag=0
tPag=90
vPag=0,00
tpIntegra=2
[DadosAdicionais]
Complemento=Documento emitido por ME ou EPP optante pelo Simples Nacional.;Nao gera direito a credito fiscal.",2,0)

Código: Selecionar todos

LOCAL cXml;

	CXml := '<total>'
	CXml += '<ICMSTot>'
	CXml += XmlTag( 'vBC',LTRIM(str(::Vbc,14,2)) )
	CXml += XmlTag( 'vICMS',LTRIM(str(::vICMS,14,2)) )		
	CXml += XmlTag( 'vICMSDeson',LTRIM(str(::vICMSDeson,14,2)) )	
	CXml += XmlTag( 'vFCPUFDest',ltrim(str(::TvFCPUFDest,14,2))	)
	CXml += XmlTag( 'vICMSUFDest',ltrim(str(::TvICMSUFDest,14,2)) )
	CXml += XmlTag( 'vICMSUFRemet',ltrim(str(::TvICMSUFRemet,14,2)) )
	CXml += XmlTag( 'vFCP',LTRIM(str(::vFCP,14,2)) )	
	CXml += XmlTag( 'vBCST',LTRIM(str(::vBCST,14,2)) )
	CXml += XmlTag( 'vST',LTRIM(str(::vST,14,2)) )	
	CXml += XmlTag( 'vFCPST',LTRIM(str(::vFCPST,14,2)) )		
	CXml += XmlTag( 'vFCPSTRet',LTRIM(str(::vFCPSTRet,14,2)) )
	CXml += XmlTag( 'vProd',LTRIM(STR(::vPROD,14,2)) )	
	CXml += XmlTag( 'vFrete',LTRIM(str(::vFrete,14,2)) )
	CXml += XmlTag( 'vSeg',LTRIM(str(::vSeg,14,2)) )
	CXml += XmlTag( 'vDesc',LTRIM(STR(::vDesc,14,2)) )		
	CXml += XmlTag( 'vII',LTRIM(str(::vII,14,2)) )		
	CXml += XmlTag( 'vIPI',LTRIM(STR(::vIPI,14,2)) )
	CXml += XmlTag( 'vIPIDevol',LTRIM(str(::vIPIDevol,14,2)) )
	CXml += XmlTag( 'vPIS',LTRIM(STR(::vPIS,14,2)) )		
	CXml += XmlTag( 'vCOFINS',LTRIM(STR(::vCOFINS,14,2)) )		
	CXml += XmlTag( 'vOutro',LTRIM(str(::vOutro,14,2)) )	
	CXml += XmlTag( 'vNF',LTRIM(STR(oQuery1:Fields( "W_vNF" ):Value)))	
//	CXml += XmlTag( 'vNF',LTRIM(STR(oQuery1:Fields( "W_vPROD" ):Value - oQuery1:Fields( "W_vDesc" ):Value - vICMSDeson + vST + vFCPST + vFrete + vSeg + vOutro + vII + vIPI + vIPIDevol ,14,2)) )
	CXml += XmlTag( 'vTotTrib',LTRIM(STR( vTotFed + vTotEst ,14,2)) )
	CXml += '</ICMSTot>'
	CXml += '</total>'

RETURN CXml