Rejeição: Total da BC ICMS-ST difere do somatório dos itens ACBR eu pago se for preciso
18/03/2013
0
Quando vo Criar e enviar o xml da esse erro
Imagem do Erro: http://4.bp.blogspot.com/-XmJM2s9SUcc/UUXKZNbH9VI/AAAAAAAABHk/_cAozMSrPEU/s1600/Untitled.png
-----------------------------------------------Comando para gerrar o xml--------------------------------------------------
procedure TForm_Nfe.GerarValidarEnviarNFe1Click(Sender: TObject);
var
TIPO_PAG, rCST, OK:string;
aNumItem, sUFWS, cMUN, cCPE:Integer;
begin
OK := DM1.CDSPedido.FieldByName('ENTREGUE').Value;
if OK = '1' then
begin
ShowMessage('Pedido ja validado e enviado');
Exit;
end;
if DBEdit1.Text = '' then
begin
ShowMessage('E preciso selecionar uma nota a ser gerada ');
Abort;
end;
GR.Timer1.Interval :=9000;
GR.Position := poScreenCenter;
GR.ShowModal;
DM1.CDSPedidoItems.Open;
cMUN := StrToInt(DM1.CDSPedido.FieldByName('COD_MUN').Value);
cCPE := StrToInt(DM1.CDSPedido.FieldByName('CEP_END_ENTREGA').Value);
//Buscando Produtos (Items) do Pedido
DM1.CDSPedidoItems.Close;
DM1.CDSPedidoItems.CommandText := 'select * from PEDIDO_ITEMS where upper(IDPEDIDO) like upper('+ QuotedStr(DBEdit1.Text)+')';
DM1.CDSPedidoItems.Open;
DM1.ACBrNFe1.NotasFiscais.Clear;
if GR.UFws = 'RO' then
sUFWS :=11;
if GR.UFws = 'AC' then
sUFWS :=12;
if GR.UFws = 'AM' then
sUFWS :=13;
if GR.UFws = 'PR' then
sUFWS :=14;
if GR.UFws = 'PA' then
sUFWS :=15;
if GR.UFws = 'AP' then
sUFWS :=16;
if GR.UFws = 'TO' then
sUFWS :=17;
if GR.UFws = 'MA' then
sUFWS :=21;
if GR.UFws = 'PI' then
sUFWS :=22;
if GR.UFws = 'CE' then
sUFWS :=23;
if GR.UFws = 'RN' then
sUFWS :=24;
if GR.UFws = 'PB' then
sUFWS :=25;
if GR.UFws = 'PE' then
sUFWS :=26;
if GR.UFws = 'AL' then
sUFWS :=27;
if GR.UFws = 'SE' then
sUFWS :=28;
if GR.UFws = 'BA' then
sUFWS :=29;
if GR.UFws = 'MG' then
sUFWS :=31;
if GR.UFws = 'ES' then
sUFWS :=32;
if GR.UFws = 'RJ' then
sUFWS :=33;
if GR.UFws = 'SP' then
sUFWS :=35;
if GR.UFws = 'PR' then
sUFWS :=41;
if GR.UFws = 'SC' then
sUFWS :=42;
if GR.UFws = 'RS' then
sUFWS :=43;
if GR.UFws = 'MS' then
sUFWS :=50;
if GR.UFws = 'MT' then
sUFWS :=51;
if GR.UFws = 'GO' then
sUFWS :=52;
if GR.UFws = 'DF' then
sUFWS :=53;
//
with DM1.ACBrNFe1.NotasFiscais.Add.NFe do
begin
Ide.cNF := StrToInt(DM1.CDSPedido.FieldByName('PEDIDO_NUM').Value);
Ide.natOp := IntToStr(DM1.CDSPedido.FieldByName('NATUREZA_OPRACAO').Value);//Numeros
if TIPO_PAG = 'PRAZO' then
begin
Ide.indPag := ipPrazo;
end;
if TIPO_PAG = 'VISTA' then
begin
Ide.indPag := ipVista;
end;
if TIPO_PAG = 'OUTROS' then
begin
Ide.indPag := ipOutras;
end;
Ide.natOp := 'VENDA PRODUCAO DO ESTAB.';
Ide.modelo := 55;
Ide.serie := 1;
Ide.nNF := StrToInt(DM1.CDSPedido.FieldByName('PEDIDO_NUM').Value);
Ide.dEmi := Date;
Ide.dSaiEnt := Date;
Ide.tpNF := tnSaida;
if GR.sAmbiente = 0 then
begin
Ide.tpAmb := taProducao;
end
else
begin
Ide.tpAmb := taHomologacao;
end;
Ide.verProc := '1.0.0.0';
Ide.cUF := sUFWS;
Ide.cMunFG := GR.sCodMuni;
Ide.finNFe := fnNormal;
//Emitente
Emit.CRT := crtSimplesNacional;
Emit.CNPJCPF := GR.sCPFCNPJ;
Emit.IE := GR.sIE;
Emit.IEST := '';
Emit.xNome := GR.sRazao;
Emit.xFant := GR.sFantasia;
Emit.IM := '';
Emit.CNAE := '';
Emit.EnderEmit.xLgr := GR.sEnderecoEmi;
Emit.EnderEmit.nro := GR.snumero;
Emit.EnderEmit.xCpl := '';
Emit.EnderEmit.xBairro := GR.sBairro;
Emit.EnderEmit.cMun := GR.sCodMuni;
Emit.EnderEmit.xMun := GR.sCidade;
Emit.EnderEmit.UF := GR.UF;
Emit.EnderEmit.CEP := GR.sCEP;
Emit.EnderEmit.fone := GR.sFone;
Emit.EnderEmit.cPais :=1058;
Emit.EnderEmit.xPais := 'BRASIL';
//Destinatario
Dest.CNPJCPF := DM1.CDSPedido.FieldByName('CNPJCPR').Value;
Dest.IE := DM1.CDSPedido.FieldByName('I_ESTADUAL').Value;
Dest.ISUF := '';
Dest.xNome := DM1.CDSPedido.FieldByName('CLIENTE').Value;
Dest.EnderDest.xLgr := DM1.CDSPedido.FieldByName('END_ENTREGA').Value;
Dest.EnderDest.nro := DM1.CDSPedido.FieldByName('NUM_END_ENTREGA').Value;
Dest.EnderDest.xCpl := DM1.CDSPedido.FieldByName('COMPLE_END_ENTREGA').Value;
Dest.EnderDest.xBairro := DM1.CDSPedido.FieldByName('BAIRO_END_ENTREGA').Value;
Dest.EnderDest.cMun := cMUN;
Dest.EnderDest.xMun := DM1.CDSPedido.FieldByName('CIDADE_END_ENTREGA').Value;
Dest.EnderDest.UF := DM1.CDSPedido.FieldByName('UF_END_ENTREGA').Value;
Dest.EnderDest.CEP := cCPE;
Dest.EnderDest.cPais :=1058;
Dest.EnderDest.xPais := 'BRASIL';
Dest.EnderDest.fone := DM1.CDSPedido.FieldByName('FONE').Value;
//Entrega
Entrega.xLgr := DM1.CDSPedido.FieldByName('END_ENTREGA').Value;
Entrega.nro := DM1.CDSPedido.FieldByName('NUM_END_ENTREGA').Value;
Entrega.xCpl := DM1.CDSPedido.FieldByName('COMPLE_END_ENTREGA').Value;
Entrega.xBairro := DM1.CDSPedido.FieldByName('BAIRO_END_ENTREGA').Value;
Entrega.cMun := StrToInt(DM1.CDSPedido.FieldByName('COD_MUN').Value);
Entrega.xMun := DM1.CDSPedido.FieldByName('CIDADE_END_ENTREGA').Value;
Entrega.UF := DM1.CDSPedido.FieldByName('UF_END_ENTREGA').Value;
Entrega.CNPJCPF := DM1.CDSPedido.FieldByName('CNPJCPR').Value;
//Produtos
aNumItem :=0;
DM1.CDSPedidoItems.First;
while not DM1.CDSPedidoItems.Eof do
begin
Inc(aNumItem);
with Det.Add do
begin
Prod.nItem := aNumItem;
Edit1.Text := IntToStr(aNumItem);
Prod.cProd := IntToStr(DM1.CDSPedidoItems.FieldByName('IDPRODUTO').Value);
Prod.cEAN := DM1.CDSPedidoItems.FieldByName('CODIGO_BARRAS').Value;
Prod.xProd := DM1.CDSPedidoItems.FieldByName('DESCRICAO').Value;
Prod.NCM := DM1.CDSPedidoItems.FieldByName('NCM').Value;
//Prod.EXTIPI := DM1.CDSPedidoItems.FieldByName('IMP').Value;
Prod.CFOP := DM1.CDSPedidoItems.FieldByName('CFOP').Value;
Prod.uCom := DM1.CDSPedidoItems.FieldByName('UN').Value;
Prod.qCom := DM1.CDSPedidoItems.FieldByName('QUATIDADE').AsFloat;
Prod.cEANTrib := '';
Prod.uTrib := DM1.CDSPedidoItems.FieldByName('UN').Value;
if rCST = 'TRIBUTADO' then
begin
Prod.qTrib :=DM1.CDSPedidoItems.FieldByName('QUATIDADE').AsFloat;
end
else
begin
Prod.qTrib :=0;
end;
Prod.vFrete :=0;
Prod.vSeg :=0;
Prod.vDesc := DM1.CDSPedidoItems.FieldByName('DESCONTO').AsFloat;
with Imposto do
begin
with ICMS do
begin
rCST := DM1.CDSPedidoItems.FieldByName('OPCCST').Value;
if rCST = 'TRIBUTADO' then
begin
CST := cst00;
CSOSN := csosn101;
ICMS.orig := oeNacional;
ICMS.modBC := dbiValorOperacao;
ICMS.vBC := DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat;
ICMS.pICMS := DM1.CDSPedidoItems.FieldByName('LIQ_ICMS').AsFloat;
ICMS.vICMS := (DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat * DM1.CDSPedidoItems.FieldByName('LIQ_ICMS').AsFloat) / 100;
ICMS.modBC := dbiMargemValorAgregado;
ICMS.pMVAST :=0;
ICMS.pRedBC :=0;
ICMS.vBCST :=0;
ICMS.pICMSST :=0;
ICMS.vICMSST :=0;
ICMS.pRedBC :=0;
end;
if rCST = 'SUB. TRIBUTARIA' then
begin
CST := cst60;
ICMS.orig := oeNacional;
ICMS.modBC := dbiValorOperacao;
ICMS.vBC := DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat;
ICMS.pICMS :=0;
ICMS.vICMS :=0;
ICMS.modBC := dbiMargemValorAgregado;
ICMS.pMVAST :=0;
ICMS.pRedBC :=0;
ICMS.vBCST :=0;
ICMS.pICMSST := DM1.CDSPedidoItems.FieldByName('LIQ_ICMS').AsFloat;
ICMS.vICMSST :=(DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat * DM1.CDSPedidoItems.FieldByName('LIQ_ICMS').AsFloat) / 100;
ICMS.pRedBC :=0;
end;
end;
with II do
begin
if rCST = 'INSENTO' then
begin
vBc :=0;
vDespAdu :=0;
vII := DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat;
vIOF :=0;
end;
end;
with ISSQN do
begin
if rCST = 'SERVICO' then
begin
vBC :=DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat;
vAliq := DM1.CDSPedidoItems.FieldByName('LIQ_ICMS').AsFloat;
vISSQN := (DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat * DM1.CDSPedidoItems.FieldByName('LIQ_ICMS').AsFloat) / 100;
cMunFG :=0;
cListServ :=0;
end;
end;
end;
end;
DM1.CDSPedidoItems.Next;
end;
//imformações finais
Total.ICMSTot.vBC := DM1.CDSPedido.FieldByName('TOTAL_ICMS_BAC').Value;
Total.ICMSTot.vBC := DM1.CDSPedido.FieldByName('TOTALICMS').Value;
Total.ICMSTot.vBCST := DM1.CDSPedido.FieldByName('VALOR_TOTAL').Value;
Total.ICMSTot.vST := (DM1.CDSPedido.FieldByName('VALOR_TOTAL').Value * DM1.CDSPedido.FieldByName('LIQ_ICMS').Value) / 100;
Total.ICMSTot.vProd := DM1.CDSPedido.FieldByName('VALOR_TOTAL').Value;
Total.ICMSTot.vFrete := DM1.CDSPedido.FieldByName('FRETE').Value;
Total.ICMSTot.vSeg := DM1.CDSPedido.FieldByName('SEG').Value;
Total.ICMSTot.vDesc := DM1.CDSPedido.FieldByName('DESCONTO').Value;
Total.ICMSTot.vII :=0;
Total.ICMSTot.vIPI :=0;
Total.ICMSTot.vPIS :=0;
Total.ICMSTot.vCOFINS :=0;
Total.ICMSTot.vOutro :=0;
Total.ICMSTot.vNF := DM1.CDSPedido.FieldByName('VALOR_TOTAL').Value;
Total.ISSQNtot.vServ :=0;
Total.ISSQNtot.vBC :=0;
Total.ISSQNtot.vISS :=0;
Total.ISSQNtot.vPIS :=0;
Total.ISSQNtot.vCOFINS :=0;
//
Total.retTrib.vRetPIS :=0;
Total.retTrib.vRetCOFINS :=0;
Total.retTrib.vRetCSLL :=0;
Total.retTrib.vBCIRRF :=0;
Total.retTrib.vIRRF :=0;
Total.retTrib.vRetPrev :=0;
//trasportadora
Transp.Transporta.CNPJCPF := '';
Transp.Transporta.xNome := '';
Transp.Transporta.IE :='';
Transp.Transporta.xEnder :='';
Transp.Transporta.xMun :='';
Transp.Transporta.UF :='';
with Transp.Reboque.Add do
begin
placa := 'AAA0000';
UF := 'MT';
RNTC := '';
end;
with Transp.Vol.Add do
begin
qVol :=1;
esp := '';
marca := '';
nVol :='';
pesoL :=0;
pesoB :=0;
end;
Cobr.Fat.nFat := DM1.CDSPedido.FieldByName('PEDIDO_NUM').Value;
Cobr.Fat.vOrig := DM1.CDSPedido.FieldByName('VALOR_TOTAL').AsFloat;
Cobr.Fat.vDesc :=0;
Cobr.Fat.vLiq := DM1.CDSPedido.FieldByName('VALOR_TOTAL').AsFloat;
with Cobr.Dup.Add do
begin
nDup := DM1.CDSPedido.FieldByName('PEDIDO_NUM').Value;
dVenc := Date + 30;
vDup := DM1.CDSPedido.FieldByName('VALOR_TOTAL').AsFloat;
end;
with InfAdic.obsCont.Add do
begin
xCampo := '0';
xTexto := DM1.CDSPedido.FieldByName('OBS').AsString;
end;
with InfAdic.obsFisco.Add do
begin
xCampo := '1';
xTexto := DM1.CDSPedido.FieldByName('OBS').AsString;
end;
end;
//Comando para Gerar Arquivo xml
DM1.ACBrNFe1.NotasFiscais.Assinar;
DM1.ACBrNFe1.NotasFiscais.Items[0].SaveToFile;
ShowMessage('ARQUIVO GERADO EM: '+DM1.ACBrNFe1.NotasFiscais.Items[0].NomeArq);
FormValidarXML.EdtArquivo.Text := DM1.ACBrNFe1.NotasFiscais.Items[0].NomeArq;
FormValidarXML.Show;
end;
-------------------------------------------------FIM DO COMANDO-------------------------------------------------------
--------------------------------------------------XML GERADO-----------------------------------------------------------
<?xml version="1.0"?>
-<NFe xmlns="http://www.portalfiscal.inf.br/nfe">-<infNFe Id="NFe51130317333564000149550010086200001086200006" versao="2.00">-<ide><cUF>51</cUF><cNF>08620000</cNF><natOp>VENDA PRODUCAO DO ESTAB.</natOp><indPag>0</indPag><mod>55</mod><serie>1</serie><nNF>8620000</nNF><dEmi>2013-03-17</dEmi><dSaiEnt>2013-03-17</dSaiEnt><tpNF>1</tpNF><cMunFG>5102678</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>6</cDV><tpAmb>1</tpAmb><finNFe>1</finNFe><procEmi>0</procEmi><verProc>1.0.0.0</verProc></ide>-<emit><CNPJ>17333564000149</CNPJ><xNome>CAPELARO PAPELARIA E MODA LTDA-ME</xNome><xFant>Capelari papelaria e moda</xFant>-<enderEmit><xLgr>AV</xLgr><nro>270</nro><xBairro>Cidade Alta II</xBairro><cMun>5102678</cMun><xMun>Campo Verde</xMun><UF>MT</UF><CEP>78840000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>6681142477</fone></enderEmit><IE>134714172</IE><CRT>1</CRT></emit>-<dest><CPF>05013288150</CPF><xNome>Ricardo Lemos Capelari</xNome>-<enderDest><xLgr>Rau 9 Av. joao gularte</xLgr><nro>265</nro><xCpl>au lado de dois lote</xCpl><xBairro>Cidade Alta 2</xBairro><cMun>5100201</cMun><xMun>Agua Boa</xMun><UF>MT</UF><CEP>89625000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>6681254214</fone></enderDest><IE>24914142</IE></dest>-<entrega><CPF>05013288150</CPF><xLgr>Rau 9 Av. joao gularte</xLgr><nro>265</nro><xCpl>au lado de dois lote</xCpl><xBairro>Cidade Alta 2</xBairro><cMun>5100201</cMun><xMun>Agua Boa</xMun><UF>MT</UF></entrega>-<det nItem="1">-<prod><cProd>150</cProd><cEAN>7503002900451</cEAN><xProd>Grapeador Metal de mesa 20Cm</xProd><NCM>83052000</NCM><CFOP>6102</CFOP><uCom>UN</uCom><qCom>1.0000</qCom><vUnCom>0.0000000000</vUnCom><vProd>0.00</vProd><cEANTrib/><uTrib>UN</uTrib><qTrib>0.0000</qTrib><vUnTrib>0.0000000000</vUnTrib><indTot>1</indTot></prod>-<imposto>-<ICMS>-<ICMSSN101><orig>0</orig><CSOSN>101</CSOSN><pCredSN>0.00</pCredSN><vCredICMSSN>0.00</vCredICMSSN></ICMSSN101></ICMS>-<PIS>-<PISAliq><CST>01</CST><vBC>0.00</vBC><pPIS>0.00</pPIS><vPIS>0.00</vPIS></PISAliq></PIS>-<COFINS>-<COFINSAliq><CST>01</CST><vBC>0.00</vBC><pCOFINS>0.00</pCOFINS><vCOFINS>0.00</vCOFINS></COFINSAliq></COFINS></imposto></det>-<total>-<ICMSTot><vBC>22.25</vBC><vICMS>0.00</vICMS><vBCST>22.25</vBCST><vST>0.00</vST><vProd>22.25</vProd><vFrete>0.00</vFrete><vSeg>0.00</vSeg><vDesc>0.00</vDesc><vII>0.00</vII><vIPI>0.00</vIPI><vPIS>0.00</vPIS><vCOFINS>0.00</vCOFINS><vOutro>0.00</vOutro><vNF>22.25</vNF></ICMSTot></total>-<transp><modFrete>0</modFrete>-<reboque><placa>AAA0000</placa><UF>MT</UF></reboque>-<vol><qVol>1</qVol></vol></transp>-<cobr>-<fat><nFat>8620000</nFat><vOrig>22.25</vOrig><vLiq>22.25</vLiq></fat>-<dup><nDup>8620000</nDup><dVenc>2013-04-16</dVenc><vDup>22.25</vDup></dup></cobr>-<infAdic>-<obsCont xCampo="0"><xTexto>NEM UMA OBS</xTexto></obsCont>-<obsFisco xCampo="1"><xTexto>NEM UMA OBS</xTexto></obsFisco></infAdic></infNFe>-<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">-<SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>-<Reference URI="#NFe51130317333564000149550010086200001086200006">-<Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/><DigestValue>F3sNNfezMQxgbnm55WQk3mF75kA=</DigestValue></Reference></SignedInfo><SignatureValue>JAh3nHORhRorZTYZEYG8zgzCztKhmdcHLHmvR71+Pt4rYw5eEibnkauWS9hb0HtuCFlAd6sHBl0D9+BaagH9AOI2AM4inrjH9spfZXKpoUvo4UHZKivUfmEb1Ur5Vz42a6LzTtbefcnNs1kiMX9oVrlMwhRSdepv/dI1DHafMUOSpl1aBWSKzVRxyHUFENxa3q20Usg3Va8ovuunB++EiYwZktAKSVTxiiPozJUeFd6+AFEcTJoRCctmkoERcN29M1332739l4B1ilCwETB8frFBb5XDyemKQlcv+q25QicDjBuGNVJBEB0Sr3x7a+bFD4JO8Kfk57frrq/7gSDKzg==</SignatureValue>-<KeyInfo>-<X509Data><X509Certificate>MIIIFzCCBf+gAwIBAgIIDWO8Gh6kqSMwDQYJKoZIhvcNAQELBQAwcTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEVMBMGA1UEAxMMQUMgVkFMSUQgUkZCMB4XDTEzMDIyNzE0MTYyOVoXDTE0MDIyNzE0MTYyOVowgfIxCzAJBgNVBAYTAkJSMQswCQYDVQQIEwJNVDEUMBIGA1UEBxMLQ0FNUE8gVkVSREUxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEWMBQGA1UECxMNUkZCIGUtQ05QSiBBMTEgMB4GA1UECxMXQVIgT05MSU5FIENFUlRJRklDQURPUkExOTA3BgNVBAMTMENBUEVMQVJJIFBBUEVMQVJJQSBFIE1PREEgTFREQSBNRToxNzMzMzU2NDAwMDE0OTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAKjmV+DQfZ3MAQDap1uxJdpXx6wxlBtp/p/1WACZGr/lMzyG9Q0AYQpm457e1bE5RaBNZH08BqAD34wMLK86PbJMp4pLmWyvjTUdo5ywW2p7NlnU2ON7GELlBa8g17NJrM89PGQg1Zmo6EM9MwwHc3EOWUvtYbGJdj+NQsQfBkHKMSIf5C0mNIpDoEZ9fIjJ1p2rmsfrciEXedfV8vgFOP6bwXEALbOE0CCEDHZnqoK4bJNYbbYLwdnptkKSjBoQpZPoNZaMHWtW10BIdBjBBHYOMbbLiYefpU3zSlWTpZxj0lvy2AuHE0fcQb6zDcMRI8NgO6nmm7edu5Lp7UEbrRUCAwEAAaOCAy8wggMrMIGaBggrBgEFBQcBAQSBjTCBijBVBggrBgEFBQcwAoZJaHR0cDovL2ljcC1icmFzaWwudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5ici9hYy12YWxpZHJmYi9hYy12YWxpZHJmYnYyLnA3YjAxBggrBgEFBQcwAYYlaHR0cDovL29jc3AudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5icjAJBgNVHRMEAjAAMB8GA1UdIwQYMBaAFEe5CFnYQvaS/Pd8FXwmgEpFkX6fMG4GA1UdIARnMGUwYwYGYEwBAgElMFkwVwYIKwYBBQUHAgEWS2h0dHA6Ly9pY3AtYnJhc2lsLnZhbGlkY2VydGlmaWNhZG9yYS5jb20uYnIvYWMtdmFsaWRyZmIvZHBjLWFjLXZhbGlkcmZiLnBkZjCCAQEGA1UdHwSB+TCB9jBToFGgT4ZNaHR0cDovL2ljcC1icmFzaWwudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5ici9hYy12YWxpZHJmYi9sY3ItYWMtdmFsaWRyZmJ2Mi5jcmwwVKBSoFCGTmh0dHA6Ly9pY3AtYnJhc2lsMi52YWxpZGNlcnRpZmljYWRvcmEuY29tLmJyL2FjLXZhbGlkcmZiL2xjci1hYy12YWxpZHJmYnYyLmNybDBJoEegRYZDaHR0cDovL3JlcG9zaXRvcmlvLmljcGJyYXNpbC5nb3YuYnIvbGNyL1ZBTElEL2xjci1hYy12YWxpZHJmYnYyLmNybDAOBgNVHQ8BAf8EBAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMIG7BgNVHREEgbMwgbCBGGVzY3BhcmFuYUBicnR1cmJvLmNvbS5icqA9BgVgTAEDBKA0BDIwNjEyMTk5NDA1MDEzMjg4MTUwMDAwMDAwMDAwMDAwMDAwMDAwMjQ5MTQxNDJTRUpNVKAhBgVgTAEDAqAYBBZSSUNBUkRPIExFTU9TIENBUEVMQVJJoBkGBWBMAQMDoBAEDjE3MzMzNTY0MDAwMTQ5oBcGBWBMAQMHoA4EDDAwMDAwMDAwMDAwMDANBgkqhkiG9w0BAQsFAAOCAgEAXyY2dycPiBFlFv9dN0bVAr7+6ok0uunO1IkGBF50D5a16YWNn0yXjlRMAxvyZcsv4THdagDJDGkTHEBrsX+8ltnGuo+CLLRmE5jxsKvY0IUwipzfvhAwsxB4CB3yjSuDRZNVIpjkLnPQZ1TN3YPiH12kMECqTYRczx6Nc4ll8SLzzxohrvhNfKeFPOV+KRALIg76fBeGp0/qQvkdzAW+i/2LaqQV0EprpivJRumD4fyW1WTWyll+8XsR+uqRbB4/m8ZhY+4UOhCw9gqO6dYwXaOj4vZRPv+Z44ekLSdvlX6LyPfea+GgyURV5rvUg/OAI57TJuv/ZhmpZ2Fsu2SykuiNdb7dWsbd+FImFOzjBcM61GayTS1YT66lwHIOTYELipJ4HmCLEpyhXhMFaQe4bRm0RaIAA+ye+0uehDj8JnngcnGorjRTS9Xxf7Xid1JiYrZW6IbqwQ7AmuEPv/rNPzz6oR+JDuKjweVtNyclN/jkUHKa/8o1ls3+NEcyVE323qQEyfDomd0c3G3eFCnyaCtIihudVbx5AR3FjfiULiX7S8AsxFgYwMu6Y4cnjD2zjMUzdO3RAuwocvbU0NlMYTCt83RfZhPuUm64RXtsV06FHivafPjZOv3RW3x4keg17i3rnxzOxluiZfajSigsSY6yl4f/HrLfTLvXIFHscbc=</X509Certificate></X509Data></KeyInfo></Signature></NFe>
-------------------------------------------------FIM DO XML---------------------------------------------------------------
Me ajudem Povafor ATE pago se for presizo não sei mais o que faser
Imagem do Erro: http://4.bp.blogspot.com/-XmJM2s9SUcc/UUXKZNbH9VI/AAAAAAAABHk/_cAozMSrPEU/s1600/Untitled.png
-----------------------------------------------Comando para gerrar o xml--------------------------------------------------
procedure TForm_Nfe.GerarValidarEnviarNFe1Click(Sender: TObject);
var
TIPO_PAG, rCST, OK:string;
aNumItem, sUFWS, cMUN, cCPE:Integer;
begin
OK := DM1.CDSPedido.FieldByName('ENTREGUE').Value;
if OK = '1' then
begin
ShowMessage('Pedido ja validado e enviado');
Exit;
end;
if DBEdit1.Text = '' then
begin
ShowMessage('E preciso selecionar uma nota a ser gerada ');
Abort;
end;
GR.Timer1.Interval :=9000;
GR.Position := poScreenCenter;
GR.ShowModal;
DM1.CDSPedidoItems.Open;
cMUN := StrToInt(DM1.CDSPedido.FieldByName('COD_MUN').Value);
cCPE := StrToInt(DM1.CDSPedido.FieldByName('CEP_END_ENTREGA').Value);
//Buscando Produtos (Items) do Pedido
DM1.CDSPedidoItems.Close;
DM1.CDSPedidoItems.CommandText := 'select * from PEDIDO_ITEMS where upper(IDPEDIDO) like upper('+ QuotedStr(DBEdit1.Text)+')';
DM1.CDSPedidoItems.Open;
DM1.ACBrNFe1.NotasFiscais.Clear;
if GR.UFws = 'RO' then
sUFWS :=11;
if GR.UFws = 'AC' then
sUFWS :=12;
if GR.UFws = 'AM' then
sUFWS :=13;
if GR.UFws = 'PR' then
sUFWS :=14;
if GR.UFws = 'PA' then
sUFWS :=15;
if GR.UFws = 'AP' then
sUFWS :=16;
if GR.UFws = 'TO' then
sUFWS :=17;
if GR.UFws = 'MA' then
sUFWS :=21;
if GR.UFws = 'PI' then
sUFWS :=22;
if GR.UFws = 'CE' then
sUFWS :=23;
if GR.UFws = 'RN' then
sUFWS :=24;
if GR.UFws = 'PB' then
sUFWS :=25;
if GR.UFws = 'PE' then
sUFWS :=26;
if GR.UFws = 'AL' then
sUFWS :=27;
if GR.UFws = 'SE' then
sUFWS :=28;
if GR.UFws = 'BA' then
sUFWS :=29;
if GR.UFws = 'MG' then
sUFWS :=31;
if GR.UFws = 'ES' then
sUFWS :=32;
if GR.UFws = 'RJ' then
sUFWS :=33;
if GR.UFws = 'SP' then
sUFWS :=35;
if GR.UFws = 'PR' then
sUFWS :=41;
if GR.UFws = 'SC' then
sUFWS :=42;
if GR.UFws = 'RS' then
sUFWS :=43;
if GR.UFws = 'MS' then
sUFWS :=50;
if GR.UFws = 'MT' then
sUFWS :=51;
if GR.UFws = 'GO' then
sUFWS :=52;
if GR.UFws = 'DF' then
sUFWS :=53;
//
with DM1.ACBrNFe1.NotasFiscais.Add.NFe do
begin
Ide.cNF := StrToInt(DM1.CDSPedido.FieldByName('PEDIDO_NUM').Value);
Ide.natOp := IntToStr(DM1.CDSPedido.FieldByName('NATUREZA_OPRACAO').Value);//Numeros
if TIPO_PAG = 'PRAZO' then
begin
Ide.indPag := ipPrazo;
end;
if TIPO_PAG = 'VISTA' then
begin
Ide.indPag := ipVista;
end;
if TIPO_PAG = 'OUTROS' then
begin
Ide.indPag := ipOutras;
end;
Ide.natOp := 'VENDA PRODUCAO DO ESTAB.';
Ide.modelo := 55;
Ide.serie := 1;
Ide.nNF := StrToInt(DM1.CDSPedido.FieldByName('PEDIDO_NUM').Value);
Ide.dEmi := Date;
Ide.dSaiEnt := Date;
Ide.tpNF := tnSaida;
if GR.sAmbiente = 0 then
begin
Ide.tpAmb := taProducao;
end
else
begin
Ide.tpAmb := taHomologacao;
end;
Ide.verProc := '1.0.0.0';
Ide.cUF := sUFWS;
Ide.cMunFG := GR.sCodMuni;
Ide.finNFe := fnNormal;
//Emitente
Emit.CRT := crtSimplesNacional;
Emit.CNPJCPF := GR.sCPFCNPJ;
Emit.IE := GR.sIE;
Emit.IEST := '';
Emit.xNome := GR.sRazao;
Emit.xFant := GR.sFantasia;
Emit.IM := '';
Emit.CNAE := '';
Emit.EnderEmit.xLgr := GR.sEnderecoEmi;
Emit.EnderEmit.nro := GR.snumero;
Emit.EnderEmit.xCpl := '';
Emit.EnderEmit.xBairro := GR.sBairro;
Emit.EnderEmit.cMun := GR.sCodMuni;
Emit.EnderEmit.xMun := GR.sCidade;
Emit.EnderEmit.UF := GR.UF;
Emit.EnderEmit.CEP := GR.sCEP;
Emit.EnderEmit.fone := GR.sFone;
Emit.EnderEmit.cPais :=1058;
Emit.EnderEmit.xPais := 'BRASIL';
//Destinatario
Dest.CNPJCPF := DM1.CDSPedido.FieldByName('CNPJCPR').Value;
Dest.IE := DM1.CDSPedido.FieldByName('I_ESTADUAL').Value;
Dest.ISUF := '';
Dest.xNome := DM1.CDSPedido.FieldByName('CLIENTE').Value;
Dest.EnderDest.xLgr := DM1.CDSPedido.FieldByName('END_ENTREGA').Value;
Dest.EnderDest.nro := DM1.CDSPedido.FieldByName('NUM_END_ENTREGA').Value;
Dest.EnderDest.xCpl := DM1.CDSPedido.FieldByName('COMPLE_END_ENTREGA').Value;
Dest.EnderDest.xBairro := DM1.CDSPedido.FieldByName('BAIRO_END_ENTREGA').Value;
Dest.EnderDest.cMun := cMUN;
Dest.EnderDest.xMun := DM1.CDSPedido.FieldByName('CIDADE_END_ENTREGA').Value;
Dest.EnderDest.UF := DM1.CDSPedido.FieldByName('UF_END_ENTREGA').Value;
Dest.EnderDest.CEP := cCPE;
Dest.EnderDest.cPais :=1058;
Dest.EnderDest.xPais := 'BRASIL';
Dest.EnderDest.fone := DM1.CDSPedido.FieldByName('FONE').Value;
//Entrega
Entrega.xLgr := DM1.CDSPedido.FieldByName('END_ENTREGA').Value;
Entrega.nro := DM1.CDSPedido.FieldByName('NUM_END_ENTREGA').Value;
Entrega.xCpl := DM1.CDSPedido.FieldByName('COMPLE_END_ENTREGA').Value;
Entrega.xBairro := DM1.CDSPedido.FieldByName('BAIRO_END_ENTREGA').Value;
Entrega.cMun := StrToInt(DM1.CDSPedido.FieldByName('COD_MUN').Value);
Entrega.xMun := DM1.CDSPedido.FieldByName('CIDADE_END_ENTREGA').Value;
Entrega.UF := DM1.CDSPedido.FieldByName('UF_END_ENTREGA').Value;
Entrega.CNPJCPF := DM1.CDSPedido.FieldByName('CNPJCPR').Value;
//Produtos
aNumItem :=0;
DM1.CDSPedidoItems.First;
while not DM1.CDSPedidoItems.Eof do
begin
Inc(aNumItem);
with Det.Add do
begin
Prod.nItem := aNumItem;
Edit1.Text := IntToStr(aNumItem);
Prod.cProd := IntToStr(DM1.CDSPedidoItems.FieldByName('IDPRODUTO').Value);
Prod.cEAN := DM1.CDSPedidoItems.FieldByName('CODIGO_BARRAS').Value;
Prod.xProd := DM1.CDSPedidoItems.FieldByName('DESCRICAO').Value;
Prod.NCM := DM1.CDSPedidoItems.FieldByName('NCM').Value;
//Prod.EXTIPI := DM1.CDSPedidoItems.FieldByName('IMP').Value;
Prod.CFOP := DM1.CDSPedidoItems.FieldByName('CFOP').Value;
Prod.uCom := DM1.CDSPedidoItems.FieldByName('UN').Value;
Prod.qCom := DM1.CDSPedidoItems.FieldByName('QUATIDADE').AsFloat;
Prod.cEANTrib := '';
Prod.uTrib := DM1.CDSPedidoItems.FieldByName('UN').Value;
if rCST = 'TRIBUTADO' then
begin
Prod.qTrib :=DM1.CDSPedidoItems.FieldByName('QUATIDADE').AsFloat;
end
else
begin
Prod.qTrib :=0;
end;
Prod.vFrete :=0;
Prod.vSeg :=0;
Prod.vDesc := DM1.CDSPedidoItems.FieldByName('DESCONTO').AsFloat;
with Imposto do
begin
with ICMS do
begin
rCST := DM1.CDSPedidoItems.FieldByName('OPCCST').Value;
if rCST = 'TRIBUTADO' then
begin
CST := cst00;
CSOSN := csosn101;
ICMS.orig := oeNacional;
ICMS.modBC := dbiValorOperacao;
ICMS.vBC := DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat;
ICMS.pICMS := DM1.CDSPedidoItems.FieldByName('LIQ_ICMS').AsFloat;
ICMS.vICMS := (DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat * DM1.CDSPedidoItems.FieldByName('LIQ_ICMS').AsFloat) / 100;
ICMS.modBC := dbiMargemValorAgregado;
ICMS.pMVAST :=0;
ICMS.pRedBC :=0;
ICMS.vBCST :=0;
ICMS.pICMSST :=0;
ICMS.vICMSST :=0;
ICMS.pRedBC :=0;
end;
if rCST = 'SUB. TRIBUTARIA' then
begin
CST := cst60;
ICMS.orig := oeNacional;
ICMS.modBC := dbiValorOperacao;
ICMS.vBC := DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat;
ICMS.pICMS :=0;
ICMS.vICMS :=0;
ICMS.modBC := dbiMargemValorAgregado;
ICMS.pMVAST :=0;
ICMS.pRedBC :=0;
ICMS.vBCST :=0;
ICMS.pICMSST := DM1.CDSPedidoItems.FieldByName('LIQ_ICMS').AsFloat;
ICMS.vICMSST :=(DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat * DM1.CDSPedidoItems.FieldByName('LIQ_ICMS').AsFloat) / 100;
ICMS.pRedBC :=0;
end;
end;
with II do
begin
if rCST = 'INSENTO' then
begin
vBc :=0;
vDespAdu :=0;
vII := DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat;
vIOF :=0;
end;
end;
with ISSQN do
begin
if rCST = 'SERVICO' then
begin
vBC :=DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat;
vAliq := DM1.CDSPedidoItems.FieldByName('LIQ_ICMS').AsFloat;
vISSQN := (DM1.CDSPedidoItems.FieldByName('VALOR_TOTAL').AsFloat * DM1.CDSPedidoItems.FieldByName('LIQ_ICMS').AsFloat) / 100;
cMunFG :=0;
cListServ :=0;
end;
end;
end;
end;
DM1.CDSPedidoItems.Next;
end;
//imformações finais
Total.ICMSTot.vBC := DM1.CDSPedido.FieldByName('TOTAL_ICMS_BAC').Value;
Total.ICMSTot.vBC := DM1.CDSPedido.FieldByName('TOTALICMS').Value;
Total.ICMSTot.vBCST := DM1.CDSPedido.FieldByName('VALOR_TOTAL').Value;
Total.ICMSTot.vST := (DM1.CDSPedido.FieldByName('VALOR_TOTAL').Value * DM1.CDSPedido.FieldByName('LIQ_ICMS').Value) / 100;
Total.ICMSTot.vProd := DM1.CDSPedido.FieldByName('VALOR_TOTAL').Value;
Total.ICMSTot.vFrete := DM1.CDSPedido.FieldByName('FRETE').Value;
Total.ICMSTot.vSeg := DM1.CDSPedido.FieldByName('SEG').Value;
Total.ICMSTot.vDesc := DM1.CDSPedido.FieldByName('DESCONTO').Value;
Total.ICMSTot.vII :=0;
Total.ICMSTot.vIPI :=0;
Total.ICMSTot.vPIS :=0;
Total.ICMSTot.vCOFINS :=0;
Total.ICMSTot.vOutro :=0;
Total.ICMSTot.vNF := DM1.CDSPedido.FieldByName('VALOR_TOTAL').Value;
Total.ISSQNtot.vServ :=0;
Total.ISSQNtot.vBC :=0;
Total.ISSQNtot.vISS :=0;
Total.ISSQNtot.vPIS :=0;
Total.ISSQNtot.vCOFINS :=0;
//
Total.retTrib.vRetPIS :=0;
Total.retTrib.vRetCOFINS :=0;
Total.retTrib.vRetCSLL :=0;
Total.retTrib.vBCIRRF :=0;
Total.retTrib.vIRRF :=0;
Total.retTrib.vRetPrev :=0;
//trasportadora
Transp.Transporta.CNPJCPF := '';
Transp.Transporta.xNome := '';
Transp.Transporta.IE :='';
Transp.Transporta.xEnder :='';
Transp.Transporta.xMun :='';
Transp.Transporta.UF :='';
with Transp.Reboque.Add do
begin
placa := 'AAA0000';
UF := 'MT';
RNTC := '';
end;
with Transp.Vol.Add do
begin
qVol :=1;
esp := '';
marca := '';
nVol :='';
pesoL :=0;
pesoB :=0;
end;
Cobr.Fat.nFat := DM1.CDSPedido.FieldByName('PEDIDO_NUM').Value;
Cobr.Fat.vOrig := DM1.CDSPedido.FieldByName('VALOR_TOTAL').AsFloat;
Cobr.Fat.vDesc :=0;
Cobr.Fat.vLiq := DM1.CDSPedido.FieldByName('VALOR_TOTAL').AsFloat;
with Cobr.Dup.Add do
begin
nDup := DM1.CDSPedido.FieldByName('PEDIDO_NUM').Value;
dVenc := Date + 30;
vDup := DM1.CDSPedido.FieldByName('VALOR_TOTAL').AsFloat;
end;
with InfAdic.obsCont.Add do
begin
xCampo := '0';
xTexto := DM1.CDSPedido.FieldByName('OBS').AsString;
end;
with InfAdic.obsFisco.Add do
begin
xCampo := '1';
xTexto := DM1.CDSPedido.FieldByName('OBS').AsString;
end;
end;
//Comando para Gerar Arquivo xml
DM1.ACBrNFe1.NotasFiscais.Assinar;
DM1.ACBrNFe1.NotasFiscais.Items[0].SaveToFile;
ShowMessage('ARQUIVO GERADO EM: '+DM1.ACBrNFe1.NotasFiscais.Items[0].NomeArq);
FormValidarXML.EdtArquivo.Text := DM1.ACBrNFe1.NotasFiscais.Items[0].NomeArq;
FormValidarXML.Show;
end;
-------------------------------------------------FIM DO COMANDO-------------------------------------------------------
--------------------------------------------------XML GERADO-----------------------------------------------------------
<?xml version="1.0"?>
-<NFe xmlns="http://www.portalfiscal.inf.br/nfe">-<infNFe Id="NFe51130317333564000149550010086200001086200006" versao="2.00">-<ide><cUF>51</cUF><cNF>08620000</cNF><natOp>VENDA PRODUCAO DO ESTAB.</natOp><indPag>0</indPag><mod>55</mod><serie>1</serie><nNF>8620000</nNF><dEmi>2013-03-17</dEmi><dSaiEnt>2013-03-17</dSaiEnt><tpNF>1</tpNF><cMunFG>5102678</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>6</cDV><tpAmb>1</tpAmb><finNFe>1</finNFe><procEmi>0</procEmi><verProc>1.0.0.0</verProc></ide>-<emit><CNPJ>17333564000149</CNPJ><xNome>CAPELARO PAPELARIA E MODA LTDA-ME</xNome><xFant>Capelari papelaria e moda</xFant>-<enderEmit><xLgr>AV</xLgr><nro>270</nro><xBairro>Cidade Alta II</xBairro><cMun>5102678</cMun><xMun>Campo Verde</xMun><UF>MT</UF><CEP>78840000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>6681142477</fone></enderEmit><IE>134714172</IE><CRT>1</CRT></emit>-<dest><CPF>05013288150</CPF><xNome>Ricardo Lemos Capelari</xNome>-<enderDest><xLgr>Rau 9 Av. joao gularte</xLgr><nro>265</nro><xCpl>au lado de dois lote</xCpl><xBairro>Cidade Alta 2</xBairro><cMun>5100201</cMun><xMun>Agua Boa</xMun><UF>MT</UF><CEP>89625000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>6681254214</fone></enderDest><IE>24914142</IE></dest>-<entrega><CPF>05013288150</CPF><xLgr>Rau 9 Av. joao gularte</xLgr><nro>265</nro><xCpl>au lado de dois lote</xCpl><xBairro>Cidade Alta 2</xBairro><cMun>5100201</cMun><xMun>Agua Boa</xMun><UF>MT</UF></entrega>-<det nItem="1">-<prod><cProd>150</cProd><cEAN>7503002900451</cEAN><xProd>Grapeador Metal de mesa 20Cm</xProd><NCM>83052000</NCM><CFOP>6102</CFOP><uCom>UN</uCom><qCom>1.0000</qCom><vUnCom>0.0000000000</vUnCom><vProd>0.00</vProd><cEANTrib/><uTrib>UN</uTrib><qTrib>0.0000</qTrib><vUnTrib>0.0000000000</vUnTrib><indTot>1</indTot></prod>-<imposto>-<ICMS>-<ICMSSN101><orig>0</orig><CSOSN>101</CSOSN><pCredSN>0.00</pCredSN><vCredICMSSN>0.00</vCredICMSSN></ICMSSN101></ICMS>-<PIS>-<PISAliq><CST>01</CST><vBC>0.00</vBC><pPIS>0.00</pPIS><vPIS>0.00</vPIS></PISAliq></PIS>-<COFINS>-<COFINSAliq><CST>01</CST><vBC>0.00</vBC><pCOFINS>0.00</pCOFINS><vCOFINS>0.00</vCOFINS></COFINSAliq></COFINS></imposto></det>-<total>-<ICMSTot><vBC>22.25</vBC><vICMS>0.00</vICMS><vBCST>22.25</vBCST><vST>0.00</vST><vProd>22.25</vProd><vFrete>0.00</vFrete><vSeg>0.00</vSeg><vDesc>0.00</vDesc><vII>0.00</vII><vIPI>0.00</vIPI><vPIS>0.00</vPIS><vCOFINS>0.00</vCOFINS><vOutro>0.00</vOutro><vNF>22.25</vNF></ICMSTot></total>-<transp><modFrete>0</modFrete>-<reboque><placa>AAA0000</placa><UF>MT</UF></reboque>-<vol><qVol>1</qVol></vol></transp>-<cobr>-<fat><nFat>8620000</nFat><vOrig>22.25</vOrig><vLiq>22.25</vLiq></fat>-<dup><nDup>8620000</nDup><dVenc>2013-04-16</dVenc><vDup>22.25</vDup></dup></cobr>-<infAdic>-<obsCont xCampo="0"><xTexto>NEM UMA OBS</xTexto></obsCont>-<obsFisco xCampo="1"><xTexto>NEM UMA OBS</xTexto></obsFisco></infAdic></infNFe>-<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">-<SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>-<Reference URI="#NFe51130317333564000149550010086200001086200006">-<Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/><DigestValue>F3sNNfezMQxgbnm55WQk3mF75kA=</DigestValue></Reference></SignedInfo><SignatureValue>JAh3nHORhRorZTYZEYG8zgzCztKhmdcHLHmvR71+Pt4rYw5eEibnkauWS9hb0HtuCFlAd6sHBl0D9+BaagH9AOI2AM4inrjH9spfZXKpoUvo4UHZKivUfmEb1Ur5Vz42a6LzTtbefcnNs1kiMX9oVrlMwhRSdepv/dI1DHafMUOSpl1aBWSKzVRxyHUFENxa3q20Usg3Va8ovuunB++EiYwZktAKSVTxiiPozJUeFd6+AFEcTJoRCctmkoERcN29M1332739l4B1ilCwETB8frFBb5XDyemKQlcv+q25QicDjBuGNVJBEB0Sr3x7a+bFD4JO8Kfk57frrq/7gSDKzg==</SignatureValue>-<KeyInfo>-<X509Data><X509Certificate>MIIIFzCCBf+gAwIBAgIIDWO8Gh6kqSMwDQYJKoZIhvcNAQELBQAwcTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEVMBMGA1UEAxMMQUMgVkFMSUQgUkZCMB4XDTEzMDIyNzE0MTYyOVoXDTE0MDIyNzE0MTYyOVowgfIxCzAJBgNVBAYTAkJSMQswCQYDVQQIEwJNVDEUMBIGA1UEBxMLQ0FNUE8gVkVSREUxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEWMBQGA1UECxMNUkZCIGUtQ05QSiBBMTEgMB4GA1UECxMXQVIgT05MSU5FIENFUlRJRklDQURPUkExOTA3BgNVBAMTMENBUEVMQVJJIFBBUEVMQVJJQSBFIE1PREEgTFREQSBNRToxNzMzMzU2NDAwMDE0OTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAKjmV+DQfZ3MAQDap1uxJdpXx6wxlBtp/p/1WACZGr/lMzyG9Q0AYQpm457e1bE5RaBNZH08BqAD34wMLK86PbJMp4pLmWyvjTUdo5ywW2p7NlnU2ON7GELlBa8g17NJrM89PGQg1Zmo6EM9MwwHc3EOWUvtYbGJdj+NQsQfBkHKMSIf5C0mNIpDoEZ9fIjJ1p2rmsfrciEXedfV8vgFOP6bwXEALbOE0CCEDHZnqoK4bJNYbbYLwdnptkKSjBoQpZPoNZaMHWtW10BIdBjBBHYOMbbLiYefpU3zSlWTpZxj0lvy2AuHE0fcQb6zDcMRI8NgO6nmm7edu5Lp7UEbrRUCAwEAAaOCAy8wggMrMIGaBggrBgEFBQcBAQSBjTCBijBVBggrBgEFBQcwAoZJaHR0cDovL2ljcC1icmFzaWwudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5ici9hYy12YWxpZHJmYi9hYy12YWxpZHJmYnYyLnA3YjAxBggrBgEFBQcwAYYlaHR0cDovL29jc3AudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5icjAJBgNVHRMEAjAAMB8GA1UdIwQYMBaAFEe5CFnYQvaS/Pd8FXwmgEpFkX6fMG4GA1UdIARnMGUwYwYGYEwBAgElMFkwVwYIKwYBBQUHAgEWS2h0dHA6Ly9pY3AtYnJhc2lsLnZhbGlkY2VydGlmaWNhZG9yYS5jb20uYnIvYWMtdmFsaWRyZmIvZHBjLWFjLXZhbGlkcmZiLnBkZjCCAQEGA1UdHwSB+TCB9jBToFGgT4ZNaHR0cDovL2ljcC1icmFzaWwudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5ici9hYy12YWxpZHJmYi9sY3ItYWMtdmFsaWRyZmJ2Mi5jcmwwVKBSoFCGTmh0dHA6Ly9pY3AtYnJhc2lsMi52YWxpZGNlcnRpZmljYWRvcmEuY29tLmJyL2FjLXZhbGlkcmZiL2xjci1hYy12YWxpZHJmYnYyLmNybDBJoEegRYZDaHR0cDovL3JlcG9zaXRvcmlvLmljcGJyYXNpbC5nb3YuYnIvbGNyL1ZBTElEL2xjci1hYy12YWxpZHJmYnYyLmNybDAOBgNVHQ8BAf8EBAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMIG7BgNVHREEgbMwgbCBGGVzY3BhcmFuYUBicnR1cmJvLmNvbS5icqA9BgVgTAEDBKA0BDIwNjEyMTk5NDA1MDEzMjg4MTUwMDAwMDAwMDAwMDAwMDAwMDAwMjQ5MTQxNDJTRUpNVKAhBgVgTAEDAqAYBBZSSUNBUkRPIExFTU9TIENBUEVMQVJJoBkGBWBMAQMDoBAEDjE3MzMzNTY0MDAwMTQ5oBcGBWBMAQMHoA4EDDAwMDAwMDAwMDAwMDANBgkqhkiG9w0BAQsFAAOCAgEAXyY2dycPiBFlFv9dN0bVAr7+6ok0uunO1IkGBF50D5a16YWNn0yXjlRMAxvyZcsv4THdagDJDGkTHEBrsX+8ltnGuo+CLLRmE5jxsKvY0IUwipzfvhAwsxB4CB3yjSuDRZNVIpjkLnPQZ1TN3YPiH12kMECqTYRczx6Nc4ll8SLzzxohrvhNfKeFPOV+KRALIg76fBeGp0/qQvkdzAW+i/2LaqQV0EprpivJRumD4fyW1WTWyll+8XsR+uqRbB4/m8ZhY+4UOhCw9gqO6dYwXaOj4vZRPv+Z44ekLSdvlX6LyPfea+GgyURV5rvUg/OAI57TJuv/ZhmpZ2Fsu2SykuiNdb7dWsbd+FImFOzjBcM61GayTS1YT66lwHIOTYELipJ4HmCLEpyhXhMFaQe4bRm0RaIAA+ye+0uehDj8JnngcnGorjRTS9Xxf7Xid1JiYrZW6IbqwQ7AmuEPv/rNPzz6oR+JDuKjweVtNyclN/jkUHKa/8o1ls3+NEcyVE323qQEyfDomd0c3G3eFCnyaCtIihudVbx5AR3FjfiULiX7S8AsxFgYwMu6Y4cnjD2zjMUzdO3RAuwocvbU0NlMYTCt83RfZhPuUm64RXtsV06FHivafPjZOv3RW3x4keg17i3rnxzOxluiZfajSigsSY6yl4f/HrLfTLvXIFHscbc=</X509Certificate></X509Data></KeyInfo></Signature></NFe>
-------------------------------------------------FIM DO XML---------------------------------------------------------------
Me ajudem Povafor ATE pago se for presizo não sei mais o que faser
Ricardo Capelari
Curtir tópico
+ 0
Responder
Posts
18/03/2013
Courart Ltda
Você tem que verificar os campos conforme descritos no manual. A rejeição ocorre por "Total da BC ICMS-ST (id:W05) difere do somatório do valor dos itens (id:N21) (*3)", ou seja, o valor do W05 tem que ser igual a sona dos valores do N21.
Responder
06/01/2015
Alex Moraes
Caro amigo...Também estava nesse desespero....acho que consegui..se quiser te mando toda função "Gera_XML". para sua avaliação para teu e-mai, para precisainformatica@hotmail.com
Abraços
Alex.
Abraços
Alex.
Responder
18/03/2015
Mário Filho
Estou com o mesmo problema: "Total do BC ICMS difere do somatório dos itens"
Mas.... só quando coloco mais de um item na NF. Quando tem apenas 1 item autoriza certinho!
Eu criei um totalizador do bcicms:
with ICMS do
begin
CST := cst00; // por hora vou usar esse pois estou em homologação, depois vou fazer a tributacao individual
CSOSN := csosn101; // a empresa é do simples nacional com direito a credito de icms
ICMS.orig := oeNacional;
ICMS.modBC := dbiValorOperacao;
ICMS.vBC := Prod.vProd;
ICMS.pICMS := dm.Cons_produtoICMS.Value; // vem do cadastro de produto a aliquota do icms
ICMS.vICMS := (Prod.vProd*dm.Cons_produtoICMS.Value)/100; // calculo do valor icms, onde prod.cprod é o valor do produto individualmente mais acima
ICMS.modBCST := dbisMargemValorAgregado;
ICMS.pMVAST := 0;
ICMS.pRedBCST:= 0;
ICMS.vBCST := 0;
ICMS.pICMSST := 0;
ICMS.vICMSST := 0;
ICMS.pRedBC := 0;
wtvicms:=wtvicms+ICMS.vICMS;
wtvbcicms:=wtvbcicms+Prod.vProd;
end;
E lá em baixo informo esse total:
Total.ICMSTot.vBC := wtvbcicms;
Total.ICMSTot.vICMS := wtvicms;
Total.ICMSTot.vBCST := 0;
Total.ICMSTot.vST := 0;
Total.ICMSTot.vProd := wtotprod;
Total.ICMSTot.vFrete := 0;
Total.ICMSTot.vSeg := 0;
Total.ICMSTot.vDesc := 0;
Total.ICMSTot.vII := 0;
Total.ICMSTot.vIPI := 0;
Total.ICMSTot.vPIS := 0;
Total.ICMSTot.vCOFINS := 0;
Total.ICMSTot.vOutro := 0;
Total.ICMSTot.vNF := strtofloat(dbsub_total.text)
Total.ISSQNtot.vServ := 0;
Total.ISSQNTot.vBC := 0;
Total.ISSQNTot.vISS := 0;
Total.ISSQNTot.vPIS := 0;
Total.ISSQNTot.vCOFINS := 0;
Mas... quando tem mais de um item os valores não conferem.
Alguém poderia me ajudar?
Mas.... só quando coloco mais de um item na NF. Quando tem apenas 1 item autoriza certinho!
Eu criei um totalizador do bcicms:
with ICMS do
begin
CST := cst00; // por hora vou usar esse pois estou em homologação, depois vou fazer a tributacao individual
CSOSN := csosn101; // a empresa é do simples nacional com direito a credito de icms
ICMS.orig := oeNacional;
ICMS.modBC := dbiValorOperacao;
ICMS.vBC := Prod.vProd;
ICMS.pICMS := dm.Cons_produtoICMS.Value; // vem do cadastro de produto a aliquota do icms
ICMS.vICMS := (Prod.vProd*dm.Cons_produtoICMS.Value)/100; // calculo do valor icms, onde prod.cprod é o valor do produto individualmente mais acima
ICMS.modBCST := dbisMargemValorAgregado;
ICMS.pMVAST := 0;
ICMS.pRedBCST:= 0;
ICMS.vBCST := 0;
ICMS.pICMSST := 0;
ICMS.vICMSST := 0;
ICMS.pRedBC := 0;
wtvicms:=wtvicms+ICMS.vICMS;
wtvbcicms:=wtvbcicms+Prod.vProd;
end;
E lá em baixo informo esse total:
Total.ICMSTot.vBC := wtvbcicms;
Total.ICMSTot.vICMS := wtvicms;
Total.ICMSTot.vBCST := 0;
Total.ICMSTot.vST := 0;
Total.ICMSTot.vProd := wtotprod;
Total.ICMSTot.vFrete := 0;
Total.ICMSTot.vSeg := 0;
Total.ICMSTot.vDesc := 0;
Total.ICMSTot.vII := 0;
Total.ICMSTot.vIPI := 0;
Total.ICMSTot.vPIS := 0;
Total.ICMSTot.vCOFINS := 0;
Total.ICMSTot.vOutro := 0;
Total.ICMSTot.vNF := strtofloat(dbsub_total.text)
Total.ISSQNtot.vServ := 0;
Total.ISSQNTot.vBC := 0;
Total.ISSQNTot.vISS := 0;
Total.ISSQNTot.vPIS := 0;
Total.ISSQNTot.vCOFINS := 0;
Mas... quando tem mais de um item os valores não conferem.
Alguém poderia me ajudar?
Responder
Clique aqui para fazer login e interagir na Comunidade :)
