Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

Pedro Antonio Marchette

Membros
  • Posts

    18
  • Joined

  • Last visited

Recent Profile Visitors

980 profile views

Pedro Antonio Marchette's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

3

Reputation

1

Community Answers

  1. agradeço a colaboração Italo, conferi na rotina e estava passando vazio a tag em outro momento
  2. Boa tarde amigos estou com um problema ja procurei pelo forum porem nao encotrei nada que solucione isso, tem um cliente do RJ que esta enviando uma nota para SP com st, o mesmo consguiu uma IEST(iscrição estadual subistituto tributario) informe a tag no meu codigo de emissao de nota porem nao cria a tag no xml. trecho em negrito, ate coloquei mensagens pra ver se nao estava pulando ele passou dentro de tudo e nao gerou segue o codigo : if QPAIRUF_DESTINARIO.AsString = 'EX' then begin Ide.idDest := doExterior; end else if QPAIRUF_DESTINARIO.AsString = QPAIRUF_EMISSOR.AsString then ide.idDest := doInterna else ide.idDest := doInterestadual; Emit.CNPJCPF := QPAIRCGC_EMISSOR.AsString; Emit.IE := QPAIRICMS_EMISSOR.asString; {** Inscrição Estadual Substituto Tributário ** Isso permite que possamos faturar do 'RJ' para 'SP', sem a necessidade de pagamento antecipado da Guia de ST. } if (QPAIRFINALIDADE_NF.AsString <> 'VENDA PARA CONSUMO/ATIVO') then begin //ShowMessage('PASSOU, VENDA PARA CONSUMO/ATIVO'); if (Trim(CONSULTAS.QPAIRRG.AsString) <> '') or (CONSULTAS.QPAIRRG.AsString <> null)then begin //ShowMessage('VERIFICAÇÃO SE TEM O IEST' + CONSULTAS.QPAIRRG.AsString); if CONSULTAS.QPAIRUF_DESTINARIO.AsString = 'SP' then begin Emit.IEST := Trim(CONSULTAS.QPAIRRG.ASSTRING) ; //ShowMessage('ALIMENTOU A TAG' + CONSULTAS.QPAIRRG.AsString); end; end; end; //if QPAIRCGC_EMISSOR.AsString = '0000000000000' then // Emit.xNome := '' //else Emit.xNome := QPAIRRAZAO_SOCIAL_EMISSOR.AsString; Emit.xFant := QPAIRRAZAO_SOCIAL_EMISSOR.AsString; Emit.EnderEmit.fone := QPAIRTEL_EMISSOR.AsString; if (QPAIRCEP_EMISSOR.AsString <> '') then Emit.EnderEmit.CEP := StrToInt(QPAIRCEP_EMISSOR.AsString) else Emit.EnderEmit.CEP := 0; Emit.EnderEmit.xLgr := QPAIRENDERECO_EMISSOR.AsString; if QPAIRNUMERO_EMISSOR.IsNull then Emit.EnderEmit.nro := '.' else Emit.EnderEmit.nro := QPAIRNUMERO_EMISSOR.AsString; Emit.EnderEmit.xCpl := QPAIRCOMPLEMENTO_EMISSOR.AsString; Emit.EnderEmit.xBairro := QPAIRBAIRRO_EMISSOR.AsString; Emit.EnderEmit.cMun := QPAIRCOD_CIDADE_EMISSOR.AsInteger; Emit.EnderEmit.xMun := QPAIRCIDADE_EMISSOR.AsString; Emit.EnderEmit.UF := QPAIRUF_EMISSOR.AsString; xml em anexo 1-env-lot.xml
  3. Boa tarde amigos estou com um problema ja procurei pelo forum porem nao encotrei nada que solucione isso, tem um cliente do RJ que esta enviando uma nota para SP com st, o mesmo consguiu uma IEST(iscrição estadual subistituto tributario) informe a tag no meu codigo de emissao de nota porem nao cria a tag no xml. trecho em negrito, ate coloquei mensagens pra ver se nao estava pulando ele passou dentro de tudo e nao gerou segue o codigo : if QPAIRUF_DESTINARIO.AsString = 'EX' then begin Ide.idDest := doExterior; end else if QPAIRUF_DESTINARIO.AsString = QPAIRUF_EMISSOR.AsString then ide.idDest := doInterna else ide.idDest := doInterestadual; Emit.CNPJCPF := QPAIRCGC_EMISSOR.AsString; Emit.IE := QPAIRICMS_EMISSOR.asString; {** Inscrição Estadual Substituto Tributário ** Isso permite que possamos faturar do 'RJ' para 'SP', sem a necessidade de pagamento antecipado da Guia de ST. } if (QPAIRFINALIDADE_NF.AsString <> 'VENDA PARA CONSUMO/ATIVO') then begin //ShowMessage('PASSOU, VENDA PARA CONSUMO/ATIVO'); if (Trim(CONSULTAS.QPAIRRG.AsString) <> '') or (CONSULTAS.QPAIRRG.AsString <> null)then begin //ShowMessage('VERIFICAÇÃO SE TEM O IEST' + CONSULTAS.QPAIRRG.AsString); if CONSULTAS.QPAIRUF_DESTINARIO.AsString = 'SP' then begin Emit.IEST := Trim(CONSULTAS.QPAIRRG.ASSTRING) ; //ShowMessage('ALIMENTOU A TAG' + CONSULTAS.QPAIRRG.AsString); end; end; end; //if QPAIRCGC_EMISSOR.AsString = '0000000000000' then // Emit.xNome := '' //else Emit.xNome := QPAIRRAZAO_SOCIAL_EMISSOR.AsString; Emit.xFant := QPAIRRAZAO_SOCIAL_EMISSOR.AsString; Emit.EnderEmit.fone := QPAIRTEL_EMISSOR.AsString; if (QPAIRCEP_EMISSOR.AsString <> '') then Emit.EnderEmit.CEP := StrToInt(QPAIRCEP_EMISSOR.AsString) else Emit.EnderEmit.CEP := 0; Emit.EnderEmit.xLgr := QPAIRENDERECO_EMISSOR.AsString; if QPAIRNUMERO_EMISSOR.IsNull then Emit.EnderEmit.nro := '.' else Emit.EnderEmit.nro := QPAIRNUMERO_EMISSOR.AsString; Emit.EnderEmit.xCpl := QPAIRCOMPLEMENTO_EMISSOR.AsString; Emit.EnderEmit.xBairro := QPAIRBAIRRO_EMISSOR.AsString; Emit.EnderEmit.cMun := QPAIRCOD_CIDADE_EMISSOR.AsInteger; Emit.EnderEmit.xMun := QPAIRCIDADE_EMISSOR.AsString; Emit.EnderEmit.UF := QPAIRUF_EMISSOR.AsString; xml em anexo 1-env-lot.xml
  4. bom dia ! como nao existe mais consultaDpec o que se deve utilizar no lugar ??
  5. tambem nao estou conseguindo atualizar o repositorio fala que o serviço nao esta no ar. acredito que poderiam ter mantido o outro repositorio, ate que esse fosse testado e normalizado
  6. Acho que me expressei mal, seguinte ele imprime 4 etiquetas e para se eu mandar 8 ele vai imprimir 4 e parar as outras 4 nao imprime, com a versao nova voltando para a versao anterior a a data 02/06/2015 que foi mexido no codigo ele imprime normal
  7. Bom dia, após a atualização da revisão 9203, quando mando imprimir mais que 4 etiquetas ele mata o processo e não imprime, olhando no Log vi que foi feito alterações no dia 03/06/2015 revisão 9155, e dia 02/06/2015 revisão 9145 peguei e voltei a versão para revisão 9140 do dia 01/06/2015, e voltou imprimir normalmente, por favor verifique.
  8. estou com o mesmo problema, no site da receita a disponibilidade esta normal, não se acha nada na web sobre esse erro se alguém souber poste aqui
  9. obrigado Dempsey , era isso mesmo não estava passando o caminho nem no codigo nem no componente , deu certo
  10. chave da nota referenciada como manda a nota tecnica que tem que passar a chave quando monta o xml a tag criada fica assim: -<ide> <cUF>35</cUF> <cNF>00000001</cNF> <natOp>5201 - DEVOLUCAO DE MERCADORIA</natOp> <indPag>1</indPag> <mod>55</mod> <serie>1</serie> <nNF>3223</nNF> <dhEmi>2015-02-23T00:00:00-03:00</dhEmi> <tpNF>1</tpNF> <idDest>1</idDest> <cMunFG>3543402</cMunFG> <tpImp>1</tpImp> <tpEmis>1</tpEmis> <cDV>6</cDV> <tpAmb>1</tpAmb> <finNFe>4</finNFe> <indFinal>0</indFinal> <indPres>0</indPres> <procEmi>0</procEmi> <verProc>1.0.0.0</verProc> <NFref/> <======= fica assim e não passa a chave de geito nenhum </ide>
  11. estou com o mesmo problema , como faz pra informar Tipo = Nfe no componente, ja nao sei mais o que fazer e meu cliente nao para de me cobrar essa bendita nota de devolução . segue a rotina: if QOTR_MODO.AsString = 'D' then begin // DBUtils.AbrirQuery(FRMINCNOTAAVULSA.qryNfRef,'ID_NOTA_REF',StrToInt(QPNAVIO.AsString)); // if FRMINCNOTAAVULSA.qryNfRefID_NOTA.AsString = QPNAVIO.AsString then // begin Ide.finNFe := fnDevolucao; // passa chave da nfe referenciada a devolução with Ide.NFref.Add do Begin refNFe := QPNAVIO.AsString; end; end ELSE Ide.finNFe := fnNormal; Erro ocorrido: Falha na validação dos dados da nota3223 Element '{http://www.portalfiscal.inf.br/nfe}NFref'cannot be empty according to the DTD/Schema. e quando envio da a seguinte mensagem
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.