AG Sistemas

mas no caso que é simples passa o valor de icms tb ?

O erro retorna valor calulado 18,00

boa tarde ! Eu mandei assim para ficar mais facil ver os dados. <NFe xmlns="http://www.portalfiscal.inf.br/nfe"><infNFe versao="4.00" Id="NFe3524"><ide><cUF>35</cUF><cNF>00013392</cNF><natOp>Venda de Mercadorias</natOp><mod>55</mod><serie>0</serie><nNF>179</nNF><dhEmi>2024-11-01T11:03:00-03:00</dhEmi><dhSaiEnt>2024-11-01T14:04:58-03:00</dhSaiEnt><tpNF>1</tpNF><idDest>2</idDest><cMunFG>3500105</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>4</cDV><tpAmb>1</tpAmb><finNFe>1</finNFe><indFinal>1</indFinal><indPres>0</indPres><procEmi>0</procEmi><verProc>2.0.8.2</verProc></ide><emit><CNPJ>5244*****</CNPJ><xNome>5</xNome><xFant>MO</xFant><enderEmit><xLgr>R</xLgr><nro>330</nro><xBairro>REK</xBairro><cMun></cMun><xMun></xMun><UF></UF><CEP></CEP><cPais></cPais><xPais></xPais><fone></fone></enderEmit><IE>15</IE><IM>500</IM><CNAE>1</CNAE><CRT>2</CRT></emit><dest><CPF></CPF><xNome>j</xNome><enderDest><xLgr>Ru</xLgr><nro>5</nro><xBairro>M</xBairro><cMun>3146107</cMun><xMun>Ouro Preto</xMun><UF>MG</UF><CEP></CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone></fone></enderDest><indIEDest>9</indIEDest></dest><det nItem="1"><prod><cProd>0000110</cProd><cEAN>SEM GTIN</cEAN><xProd>PRODUTO</xProd><NCM>94036000</NCM><CFOP>6102</CFOP><uCom>UN</uCom><qCom>1.0000</qCom><vUnCom>100.0000000000</vUnCom><vProd>100.00</vProd><cEANTrib>SEM GTIN</cEANTrib><uTrib>UN</uTrib><qTrib>1.0000</qTrib><vUnTrib>100.0000000000</vUnTrib><indTot>1</indTot></prod><imposto><vTotTrib>26.05</vTotTrib><ICMS><ICMS00><orig>0</orig><CST>00</CST><modBC>0</modBC><vBC>0.00</vBC><pICMS>12.0000</pICMS><vICMS>0.00</vICMS></ICMS00></ICMS><PIS><PISAliq><CST>01</CST><vBC>0.00</vBC><pPIS>0.0000</pPIS><vPIS>0.00</vPIS></PISAliq></PIS><COFINS><COFINSAliq><CST>01</CST><vBC>0.00</vBC><pCOFINS>0.0000</pCOFINS><vCOFINS>0.00</vCOFINS></COFINSAliq></COFINS><ICMSUFDest><vBCUFDest>100.00</vBCUFDest><vBCFCPUFDest>0.00</vBCFCPUFDest><pFCPUFDest>0.0000</pFCPUFDest><pICMSUFDest>18.0000</pICMSUFDest><pICMSInter>12.00</pICMSInter><pICMSInterPart>100.0000</pICMSInterPart><vFCPUFDest>0.00</vFCPUFDest><vICMSUFDest>6.00</vICMSUFDest><vICMSUFRemet>0.00</vICMSUFRemet></ICMSUFDest></imposto><infAdProd>BC.ICMS Uf Dest R$ 100,00, FCP 0,00 % , Aliq.Int.UF Dest 18,00%, Aliq.Interest.UF envolvida 12,00%,Porcentagem de partilha ICMS 100,00%, Vl. ICMS relativo ao FCP da UF destino R$ 0,0000, Vl. ICMS DestinoR$6,0000, Vl. ICMS Remetende R$0,0000</infAdProd></det><total><ICMSTot><vBC>0.00</vBC><vICMS>0.00</vICMS><vICMSDeson>0.00</vICMSDeson><vICMSUFDest>6.00</vICMSUFDest><vFCP>0.00</vFCP><vBCST>0.00</vBCST><vST>0.00</vST><vFCPST>0.00</vFCPST><vFCPSTRet>0.00</vFCPSTRet><vProd>100.00</vProd><vFrete>0.00</vFrete><vSeg>0.00</vSeg><vDesc>0.00</vDesc><vII>0.00</vII><vIPI>0.00</vIPI><vIPIDevol>0.00</vIPIDevol><vPIS>0.00</vPIS><vCOFINS>0.00</vCOFINS><vOutro>0.00</vOutro><vNF>100.00</vNF><vTotTrib>26.05</vTotTrib></ICMSTot></total><transp><modFrete>0</modFrete><transporta><CNPJ>4</CNPJ><xNome></xNome><IE>ISENTO</IE><xEnder>R</xEnder><xMun>Ribeirao Preto</xMun><UF>SP</UF></transporta><vol><qVol>1</qVol><pesoL>56.000</pesoL><pesoB>56.000</pesoB></vol></transp><pag><detPag><tPag>90</tPag><vPag>0.00</vPag></detPag></pag><infAdic><infCpl>Vl. aprox. trib. Federal R$14,05 (14,05%) Estadual R$12,00 (12,00%) Municipal R$ 0,00 (0,00%) ValorTotal aproximado dos tributos R$ 26,05 (38,05%) Fonte: IBPT.</infCpl></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="#NFe35241152443740000104550000000001791000133924"><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>T</DigestValue></Reference></SignedInfo><SignatureValue>B5U7IRXR</SignatureValue><KeyInfo><X509Data><X509Certificate>MIIH9z</X509Certificate></X509Data></KeyInfo></Signature></NFe>

bom dia ! Estou tendo este erro quando tento transmitir a nf para fora do estado de uma empresa simples nacional. e não entendi o motivo da rejeição segue o xml desde ja agradeço. <NFe xmlns="http://www.portalfiscal.inf.br/nfe"> <infNFe versao="4.00" Id="NFe3524"> <ide> <cUF>35</cUF> <cNF>00013392</cNF> <natOp>Venda de Mercadorias</natOp> <mod>55</mod> <serie>0</serie> <nNF>179</nNF> <dhEmi>2024-11-01T11:03:00-03:00</dhEmi> <dhSaiEnt>2024-11-01T14:04:58-03:00</dhSaiEnt> <tpNF>1</tpNF> <idDest>2</idDest> <cMunFG>3500105</cMunFG> <tpImp>1</tpImp> <tpEmis>1</tpEmis> <cDV>4</cDV> <tpAmb>1</tpAmb> <finNFe>1</finNFe> <indFinal>1</indFinal> <indPres>0</indPres> <procEmi>0</procEmi> <verProc>2.0.8.2</verProc> </ide> <emit> <CNPJ>5244*****</CNPJ> <xNome>5</xNome> <xFant>MO</xFant> <enderEmit> <xLgr>R</xLgr> <nro>330</nro> <xBairro>REK</xBairro> <cMun></cMun> <xMun></xMun> <UF></UF> <CEP></CEP> <cPais></cPais> <xPais></xPais> <fone></fone> </enderEmit> <IE>15</IE> <IM>500</IM> <CNAE>1</CNAE> <CRT>2</CRT> </emit> <dest> <CPF></CPF> <xNome>j</xNome> <enderDest> <xLgr>Ru</xLgr> <nro>5</nro> <xBairro>M</xBairro> <cMun>3146107</cMun> <xMun>Ouro Preto</xMun> <UF>MG</UF> <CEP></CEP> <cPais>1058</cPais> <xPais>BRASIL</xPais> <fone></fone> </enderDest> <indIEDest>9</indIEDest> </dest> <det nItem="1"> <prod> <cProd>0000110</cProd> <cEAN>SEM GTIN</cEAN> <xProd>PRODUTO</xProd> <NCM>94036000</NCM> <CFOP>6102</CFOP> <uCom>UN</uCom> <qCom>1.0000</qCom> <vUnCom>100.0000000000</vUnCom> <vProd>100.00</vProd> <cEANTrib>SEM GTIN</cEANTrib> <uTrib>UN</uTrib> <qTrib>1.0000</qTrib> <vUnTrib>100.0000000000</vUnTrib> <indTot>1</indTot> </prod> <imposto> <vTotTrib>26.05</vTotTrib> <ICMS> <ICMS00> <orig>0</orig> <CST>00</CST> <modBC>0</modBC> <vBC>0.00</vBC> <pICMS>12.0000</pICMS> <vICMS>0.00</vICMS> </ICMS00> </ICMS> <PIS> <PISAliq> <CST>01</CST> <vBC>0.00</vBC> <pPIS>0.0000</pPIS> <vPIS>0.00</vPIS> </PISAliq> </PIS> <COFINS> <COFINSAliq> <CST>01</CST> <vBC>0.00</vBC> <pCOFINS>0.0000</pCOFINS> <vCOFINS>0.00</vCOFINS> </COFINSAliq> </COFINS> <ICMSUFDest> <vBCUFDest>100.00</vBCUFDest> <vBCFCPUFDest>0.00</vBCFCPUFDest> <pFCPUFDest>0.0000</pFCPUFDest> <pICMSUFDest>18.0000</pICMSUFDest> <pICMSInter>12.00</pICMSInter> <pICMSInterPart>100.0000</pICMSInterPart> <vFCPUFDest>0.00</vFCPUFDest> <vICMSUFDest>6.00</vICMSUFDest> <vICMSUFRemet>0.00</vICMSUFRemet> </ICMSUFDest> </imposto> <infAdProd>BC.ICMS Uf Dest R$ 100,00, FCP 0,00 % , Aliq.Int.UF Dest 18,00%, Aliq.Interest.UF envolvida 12,00%, Porcentagem de partilha ICMS 100,00%, Vl. ICMS relativo ao FCP da UF destino R$ 0,0000, Vl. ICMS Destino R$6,0000, Vl. ICMS Remetende R$0,0000</infAdProd> </det> <total> <ICMSTot> <vBC>0.00</vBC> <vICMS>0.00</vICMS> <vICMSDeson>0.00</vICMSDeson> <vICMSUFDest>6.00</vICMSUFDest> <vFCP>0.00</vFCP> <vBCST>0.00</vBCST> <vST>0.00</vST> <vFCPST>0.00</vFCPST> <vFCPSTRet>0.00</vFCPSTRet> <vProd>100.00</vProd> <vFrete>0.00</vFrete> <vSeg>0.00</vSeg> <vDesc>0.00</vDesc> <vII>0.00</vII> <vIPI>0.00</vIPI> <vIPIDevol>0.00</vIPIDevol> <vPIS>0.00</vPIS> <vCOFINS>0.00</vCOFINS> <vOutro>0.00</vOutro> <vNF>100.00</vNF> <vTotTrib>26.05</vTotTrib> </ICMSTot> </total> <transp> <modFrete>0</modFrete> <transporta> <CNPJ>4</CNPJ> <xNome></xNome> <IE>ISENTO</IE> <xEnder></xEnder> <xMun>Ribeirao Preto</xMun> <UF>SP</UF> </transporta> <vol> <qVol>1</qVol> <pesoL>56.000</pesoL> <pesoB>56.000</pesoB> </vol> </transp> <pag> <detPag> <tPag>90</tPag> <vPag>0.00</vPag> </detPag> </pag> <infAdic> <infCpl>Vl. aprox. trib. Federal R$14,05 (14,05%) Estadual R$12,00 (12,00%) Municipal R$ 0,00 (0,00%) Valor Total aproximado dos tributos R$ 26,05 (38,05%) Fonte: IBPT.</infCpl> </infAdic> </infNFe> </NFe>

bom dia obrigado !

Bom dia, Hoje meu sistema esta preparado para trabalhar apenas com cidades e estados do Brasil, porém surgiu a necessidade de trabalharmos no Paraguai também. Exista alguma coisa pronta ou onde poderia consumir para consulta do código postal do Paraguai, distritos e cidades? Desde já agradeço a atenção

Pessoal consegui consumir o serviço pode encerrar o tópico https://github.com/viniciussanchez/RESTRequest4Delphi/discussions/171 procedure TForm1.Button1Click(Sender: TObject); var lRes: IResponse; lStream: TMemoryStream; begin try lStream := TMemoryStream.Create; lStream.LoadFromFile('C:\arquivo.pdf'); lStream.Position := 0; lRes := TRequest.New .BaseURL(url) .AddHeader('', '') .ContentType('application/pdf') .AddBody(lStream, false) .PUT; ShowMessage(IntToStr(lRes.StatusCode)); finally lStream.Free; end; end;

obrigado

bom dia! É isso mesmo eu preciso consumir a api do servidor. Tentei enviar pelo restclient mas o arquivo chega corrompido function TApiAssinatura.ConsomeAPIArquivoteste(pTokem,pUrl :String; pTPMetodo :TRESTRequestMethod;pParamHeader:String = '';pParamHeaderValor:String=''; pParamBody:String = ''; pStringList:TStringList=nil; iTimeOut:Integer= 0;sListaBody:TStringList=nil; pContentType:String=''; sBodyArquivo:string=''):string; var restClient: TRESTClient; restRequest: TRESTRequest; restResponse: TRESTResponse; sErro, sNome, sValor :String; iParametro :Integer; I: Integer; TempStream : TMemoryStream; tFStream: TFileStream; sStream : TStream; sLista : tstringlist; sTeste : String; ABytes: TBytes; begin try restClient := TRESTClient.Create(nil); restRequest := TRESTRequest.Create(restClient); restResponse := TRESTResponse.Create(restClient); try restClient.BaseURL := pUrl; restRequest.Client := restClient; restRequest.Method := pTPMetodo; restRequest.Resource := ''; restRequest.Response := restResponse; if iTimeOut > 0 then begin restRequest.Timeout := iTimeOut; end; iParametro := 0; restRequest.Params.Add; restRequest.Params[iParametro].ContentType := 'application/pdf'; if sBodyArquivo <> '' then begin { tentei deste modo TempStream := TMemoryStream.Create; TempStream.LoadFromFile(sBodyArquivo); restRequest.AddBody(TempStream,ctAPPLICATION_PDF); } ABytes := TFile.ReadAllBytes(sBodyArquivo); restRequest.Params.AddItem('body', BytesToStr(ABytes), pkREQUESTBODY, [], ctAPPLICATION_JSON); end; if trim(pContentType) <> '' then begin inc(iParametro); restRequest.Params.Add; restRequest.Params[iParametro].ContentType := pContentType;//ctAPPLICATION_XML; restRequest.Params[iParametro].Kind := pkGETorPOST; restRequest.Params[iParametro].Options := [poDoNotEncode]; restRequest.Params[iParametro].name := 'Content-Type'; restRequest.Params[iParametro].Value := pContentType; end; restRequest.Execute; if (restRequest.Response.StatusCode <> 200) then begin result := 'Erro '+restRequest.Response.StatusCode.ToString; end else if (restRequest.Response.StatusCode = 200) and (pTPMetodo = rmPUT) then begin result := '200'; end else if restRequest.Response.JSONValue.ToString <> '' then begin sTeste := StringReplace(restRequest.Response.JSONText,'\', '', [rfReplaceAll]); result := sTeste; end; except result := ''; end; finally FreeAndNil(restClient); end; end;

boa tarde caso tenha algum exemplo fico no aguardo

boa tarde! Desculpa incomodar é um tema fora do portal mas estou precisando enviar um arquivo pdf por PUT. Pelo postman eu consigo enviar mas quando tento montar o envio pelo delphi o arquivo vai vazio Estou add o arquivo este modo TempStream := TMemoryStream.Create; TempStream.LoadFromFile(sBodyArquivo); restRequest.AddBody(TempStream,ctAPPLICATION_PDF); -- Pelo postman funciona curl --location --request PUT 'https://URL' \ --header 'Content-Type: application/pdf' \ --data '@/C:/Users/Downloads/Teste de documento a assinar.pdf' -- Do modo que eu fiz ele envia o arquivo mas ele fica vazio mas quando manda pelo postman da certo. eu tentei enviar o arquivo por form-data mas o serviço não aceita. try restClient := TRESTClient.Create(nil); restRequest := TRESTRequest.Create(restClient); restResponse := TRESTResponse.Create(restClient); try restClient.BaseURL := pUrl; restRequest.Client := restClient; restRequest.Method := pTPMetodo; restRequest.Resource := ''; restRequest.Response := restResponse; if iTimeOut > 0 then begin restRequest.Timeout := iTimeOut; end; iParametro := 0; restRequest.Params.Add; if pContentType = '' then restRequest.Params[iParametro].ContentType := ctNone else restRequest.Params[iParametro].ContentType := pContentType; if pTokem <> '' then begin restRequest.Params[iParametro].Kind := pkHTTPHEADER; restRequest.Params[iParametro].name := 'Authorization'; restRequest.Params[iParametro].Value := pTokem; restRequest.Params[iParametro].Options := [poDoNotEncode]; end; if pStringList <> nil then begin for I := 0 to pStringList.count -1 do begin sNome := copy(pStringList[i],1,pos('|',pStringList[i])-1); sValor:= copy(pStringList[i],pos('|',pStringList[i])+1,length(pStringList[i])); inc(iParametro); restRequest.Params.Add; restRequest.Params[iParametro].ContentType := ctNone; restRequest.Params[iParametro].Kind := pkGETorPOST; restRequest.Params[iParametro].name := sNome; restRequest.Params[iParametro].Value := sValor; restRequest.Params[iParametro].Options := [poDoNotEncode]; end; end; if pParamHeader <> '' then begin inc(iParametro); restRequest.Params.Add; restRequest.Params[iParametro].ContentType := ctNone; restRequest.Params[iParametro].Kind := pkGETorPOST; restRequest.Params[iParametro].Options := [poDoNotEncode]; restRequest.Params[iParametro].name := pParamHeader; restRequest.Params[iParametro].Value := pParamHeaderValor; end; TempStream := TMemoryStream.Create; TempStream.LoadFromFile(sBodyArquivo); restRequest.AddBody(TempStream,ctAPPLICATION_PDF); if trim(pContentType) <> '' then begin inc(iParametro); restRequest.Params.Add; restRequest.Params[iParametro].ContentType := pContentType;//ctAPPLICATION_XML; restRequest.Params[iParametro].Kind := pkGETorPOST; restRequest.Params[iParametro].Options := [poDoNotEncode]; restRequest.Params[iParametro].name := 'Content-Type'; restRequest.Params[iParametro].Value := pContentType; end; restRequest.Execute; if (restRequest.Response.StatusCode = 200) then begin result := 'OK'; end else result := 'Erro'; except result := ''; end; finally FreeAndNil(restClient); end; desde ja agradeço caso alguem saiba como resolver

Obrigado Italo era isso mesmo passei os parametros e deu certo

bom dia obrigado da resposta. Mas quando não tem certificado informado eu não passo nenhuma informação sobre isso

boa tarde ! Nesta empresa transmitia nfse sem certificado usando o componente antigo nfse agora estamos usando o nfsex e deu este erro Temos outra empresa que esta transmitindo normal nota fiscal de serviço "pelo nfsex" para a mesma cidade só que ela esta usado certificado. Cidade de Tupã-SP Oque poderia ser o problema, desde ja agradeço.

ok obrigado pode fechar o tópico