sergiom

Bom dia, UNIT anexada. Alteração está no primeiro post. ACBrCTeDACTeRLClass.pas Obrigado Atenciosamente Sérgio

Esta revisão do fonte já foi feita? Caso não tenha sido, há uma previsão? Isto é para o caso de eu atualizar com o repositório ACBr e o problema voltar. Atenciosamente Sérgio

Bom dia Ítalo, realmente a alteração causou um problema na impressão. Alías estas últimas alterações trouxeram um trabalho extra. Não vi necessidade de tirar o R do verbo. Mas é péssimo fazerem uma alteração desta sem testar, pois atualizamos e mandamos o executável e ai começa a chover problemas. Percebi que na parte de CTe, MDFe não há muita gente acompanhando e envolvida. Se houver interesse gostaria de participar mais ativamente. Abraços Sérgio

Boa tarde, após a mudança de Salvar para Salva, etc... ao gerar PDF de vários CTE começou a dar erro nas minhas rotinas. Fui verificar e no DACTERL (Fortes), as linhas em comentário é que causaram o erro. FPArquivoPDF := FPArquivoPDF + PathWithDelim(TACBrCTe(ACBrCTe).DACTE.PathPDF) + OnlyNumber(TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe.infCTe.ID) + '-cte.pdf'; if i < TACBrCTe(ACBrCTe).Conhecimentos.Count - 1 then FPArquivoPDF := FPArquivoPDF + sLinebreak; Havendo mais de um CTe, a variável FPArquivoPDF vai ficando com todos os arquivos separados por um LINE BREAK (#13+#10). Com isso, o primeiro PDF gera corretamente, os demais não. A linha em vermelho corrige. procedure TACBrCTeDACTeRL.ImprimirDACTePDF(CTe: TCTe = nil); var i: integer; begin FPArquivoPDF := ''; if CTe = nil then begin for i := 0 to TACBrCTe(ACBrCTe).Conhecimentos.Count - 1 do begin // FPArquivoPDF := FPArquivoPDF + PathWithDelim(TACBrCTe(ACBrCTe).DACTE.PathPDF) + // OnlyNumber(TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe.infCTe.ID) + '-cte.pdf'; // if i < TACBrCTe(ACBrCTe).Conhecimentos.Count - 1 then // FPArquivoPDF := FPArquivoPDF + sLinebreak; // Linha inserida FPArquivoPDF := PathWithDelim(TACBrCTe(ACBrCTe).DACTE.PathPDF) + OnlyNumber(TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe.infCTe.ID) + '-cte.pdf'; case TamanhoPapel of tpA5: TfrmDACTeRLRetratoA5.SalvarPDF(Self, TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe, FPArquivoPDF); else TfrmDACTeRLRetrato.SalvarPDF(Self, TACBrCTe(ACBrCTe).Conhecimentos.Items.CTe, FPArquivoPDF); end; end; end else begin FPArquivoPDF := PathWithDelim(TACBrCTe(ACBrCTe).DACTE.PathPDF) + OnlyNumber(CTe.infCTe.ID) + '-cte.pdf'; case TamanhoPapel of tpA5: TfrmDACTeRLRetratoA5.SalvarPDF(Self, CTe, FPArquivoPDF); else TfrmDACTeRLRetrato.SalvarPDF(Self, CTe, FPArquivoPDF); end; end; end; Atenciosamente Sérgio

No alto, na chamada Ítalo. Vide abaixo. Atenciosamente Sérgio ACBrMDFe Seguir 35 Manifesto Eletrônico de Documentos Fiscais - https://mdfe-portal.sefaz.rs.gov.br

Boa tarde, Qual foi o motivo para trocar as propriedades: - MostrarPreview -> MostraPreview - MostrarStatus -> MostraStatus e várias outras tanto no CTe como no MDFe? Minha pergunta é porque isto gerou um trabalho de abrir todos os códigos e executar a troca. Obrigado Sérgio

Bom dia favor editar e alterar o endereço do portal Novo endereço https://dfe-portal.sefazvirtual.rs.gov.br/MDFe Obrigado Atenciosament Sérgio

Felipe, obrigado pelo retorno. Eu não utilizo o NFSe ainda, qual seria o melhor caminho para acrescer este de Cotia? Ele funciona como o do BOLETO, com arquivos separados por bancos e um que integra o conjunto? Qual seria a susgestão para poder implementar? Grato Sérgio

Bom dia podem me informar se NFSe de Cotia está implementada no ACBr? https://cotia.giap.com.br/apex/cotia/f?p=907:94 Atenciosamente Sérgio

Boa tarde, é da EFRETE com credenciamento. Sou credenciado e ainda não desenvolvi, dai o meu interesse. contato para troca de whatsapp/fone me envie a mensagem pelo Fórum com o seu e eu entro em contato. Atenciosamente Sérgio

Italo, boa tarde, eu tenho a documentação de um webservice gratuito. Gostaria de desenvolver em conjunto. Todas as operadoras tem que fornecer CIOT gratuito, mas a maioria oferece somente via WEB e muitas forçam o preenchimento total das informações. Este que tenho permite cadastrar e reutilizar o cadastro do motorista/veículo. Atenciosamente Sérgio

Este caso de seguir viagem, fazer uma descarga e depois voltar e terminar, é incomum e anti-econômico, pois o veículo trafegará (ida e volta) com um peso desnecessário, onerando consumo de combustível e pneus. Qual o motivo para não descarregar primeiro em Pernambuco e seguir viagem, fazendo a descarga completa no RN? Normalmente se carrega por ordem de descarga o que inclui o planejamento do percurso.

Boa tarde tenho uma empresa com PROXY , software KERIO, uso abaixo as configurações para MDFe e CTe. No CTe não dá erro, no MDFe dá 12032 ACBrMDFe1.Configuracoes.WebServices.ProxyHost := DadosProxy.proxyServer; ACBrMDFe1.Configuracoes.WebServices.ProxyPort := DadosProxy.porta;; ACBrMDFe1.Configuracoes.WebServices.ProxyUser := DadosProxy.login; ACBrMDFe1.Configuracoes.WebServices.ProxyPass := DadosProxy.password; ACBrCTe1.Configuracoes.WebServices.ProxyHost := DadosProxy.proxyServer; ACBrCTe1.Configuracoes.WebServices.ProxyPort := DadosProxy.porta;; ACBrCTe1.Configuracoes.WebServices.ProxyUser := DadosProxy.login; ACBrCTe1.Configuracoes.WebServices.ProxyPass := DadosProxy.password; Fazendo testes e modificando configurações na computador também apareceu o erro2. Fiz testes em 3 máquinas, 2 com windows 7 e 1 com windows 10. Esse erro apareceu a partir de segunda, sem que eu tivesse modificado ou enviado qualquer atualização do programa. Alguma orientação ou configuração a ser feita? Alguém tem experiência com uso em proxy? Atenciosamente Sérgio

Boa tarde Em exemplos peguei o ACBrNFe_demo e estava tentando consultar alguns CNPJ´s baixados No caso o CNPJ 13762180000190 do RJ. O certificado que estou usando é de uma empresa de São Paulo. if not(InputQuery('WebServices Consulta Cadastro ', 'UF do Documento a ser Consultado:', UF)) then exit; if not(InputQuery('WebServices Consulta Cadastro ', 'Documento(CPF/CNPJ)', Documento)) then exit; Documento := Trim(OnlyNumber(Documento)); ACBrNFe1.Configuracoes.WebServices.UF:= UF; Alterei incluindo esta linha, para consultar a UF do CNPJ e a mensagem de erro que recebi está abaixo. <verAplic>SVRS20170704155122</verAplic> <cStat>265</cStat> <xMotivo>Rejeicao: Sigla da UF da consulta difere da UF do Web Service</xMotivo> <UF>RJ</UF> <CNPJ>13762180000190</CNPJ> <dhCons>2018-07-05T15:59:21</dhCons> <cUF>33</cUF> Pergunto: eu só consigo consultar CNPJ de SP, se minha empresa é de SP? Atenciosamente Sérgio

Boa tarde, fiz o teste simulando com os mesmos dados do CTe que acusou o problema e gerou corretamente. Minha dúvida e preocupação é por que 91, se antes estava 90, já que foi depois da atualização que acusou o erro para mim. Quem foi o responsável pela alteração no fonte deveria explicar o motivo. Deixei a versão baixada via SVN sem alteração e fico no aguardo de um retorno seu. -<ICMS> -<ICMSOutraUF> <CST>90</CST> <vBCOutraUF>18390.17</vBCOutraUF> <pICMSOutraUF>12.00</pICMSOutraUF> <vICMSOutraUF>2206.82</vICMSOutraUF> </ICMSOutraUF> </ICMS> Obrigado Sérgio

Italo, não testei novamente, uma vez deixei meu fonte alterado para 90. Fiz alteração que você me passou. Vou simular e ver se não gera o mesmo erro, deixando 91. Mas o ponto é que não existe CST = 91 e isto pode vir a gerar erros. Por qual motivo foi colocado 91? Você sabe dizer? result := EnumeradoToStr(t, ['', '00' , '10' , '20' , '30' , '40' , '41' , '50' , '51' , '60' , '70' , '80' , '81', '90', '91', 'SN', '10', '90', '41', '60'], [cstVazio, cst00, cst10, cst20, cst30, cst40, cst41, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstICMSOutraUF, cstICMSSN, cstPart10, cstPart90, cstRep41, cstRep60]); Abraços Sérgio

Boa noite, vai ser mantido o 91? Atenciosamente Sérgio

Bom dia Italo, já alterei para a forma como explicou acima, mas este 91 não tinha e agora tem, sendo que não existe CST 91. Aguardo seu retorno e muito obrigado.

Italo tinha feito assim ICMS.SituTrib := cstICMSOutraUF; ICMS.ICMSOutraUF.CST := cstICMSOutraUF; Mas não deu erro antes, hoje após atualização é que deu. E não existe CST 91. Não está errado? Atenciosamente Sérgio

Italo Boa tarde, ficou assim: -<ICMS> -<ICMSOutraUF> <CST>91</CST> <vBCOutraUF>18390.17</vBCOutraUF> <pICMSOutraUF>12.00</pICMSOutraUF> <vICMSOutraUF>2206.82</vICMSOutraUF> </ICMSOutraUF> </ICMS> Eu fiz a alteração, cliente gerou novamente e saiu com 90. Tem que trocar 91 por 90. CST = 91 não existe para CTe. Abraços Sérgio

Boa tarde, a função abaixo (PCNComum\PCNConversao.pas) está gerando CST = 91 para cstICMSOutraUF. Valor correto é CST = 90 Isto para emissão de CTe. function CSTICMSToStr(const t: TpcnCSTIcms): string; begin // ID -> N02 - Tributada integralmente // ID -> N03 - Tributada e com cobrança do ICMS por substituição tributária // ID -> N04 - Com redução de base de cálculo // ID -> N05 - Isenta ou não tributada e com cobrança do ICMS por substituição tributária // ID -> N06 - Isenta // ID -> N06 - Não tributada // ID -> N06 - Suspensão // ID -> N07 - Diferimento A exigência do preenchimento das informações do ICMS diferido fica à critério de cada UF. // ID -> N08 - ICMS cobrado anteriormente por substituição // ID -> N09 - Com redução de base de cálculo e cobrança do ICMS por substituição tributária // ID -> N10 - ICMS pagto atribuído ao tomador ou ao terceiro previsto na legislação p/ ST // ID -> N10a - Operação interestadual para consumidor final com partilhado ICMS devido na operaçãoentre a UF de origem e a UF do destinatário ou a UF definida na legislação. (Ex. UF daconcessionária de entrega do veículos) (v2.0) // ID -> N10b - Grupo de informação do ICMS ST devido para a UF de destino,nas operações interestaduais de produtos que tiveram retenção antecipada de ICMS por ST na UF do remetente. Repasse via Substituto Tributário. (v2.0) // ID -> N11 - ICMS devido para outras UF // ID -> N12 - Outros result := EnumeradoToStr(t, ['', '00' , '10' , '20' , '30' , '40' , '41' , '50' , '51' , '60' , '70' , '80' , '81', '90', '91', 'SN', '10', '90', '41', '60'], [cstVazio, cst00, cst10, cst20, cst30, cst40, cst41, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstICMSOutraUF, cstICMSSN, cstPart10, cstPart90, cstRep41, cstRep60]); end; Atenciosamente Sérgio

Uma transportadora é do RJ e outra de MG. É o caso que mencionei. Quando o subcontratado recebe CTe do contratante fora do estado. Emitir como Redespacho e o tomador a empresa emissora do CTe contratante. É o jeito que está passando, só que gera ICMS.

Bom dia, ontem alguns CTe gerados em MG e recebidos em SP foram emitidos como subcontratação. Sexta foram emitidos como Redespacho e gerando ICMS. Eu creio que tem a ver com o ICMS. Se a origem do CTe que subcontratará o serviço for de outro estado, o subcontratante não conseguirá emitir subcontratado com isenção de ICMS como estava sendo feito. Infelizmente deveriamos ter um orgão centralizador que publicasse as regras lógicas implementadas na validação. A documentação é sempre falha. Regras deveria estar explícitas o máximo possível.

Até agora, a única solução é emitir como REDESPACHO. As emissões de subcontratação isentas de ICMS não mais serão possíveis. Somente se a transportadora contratante estiver dentro do mesmo estado. Se a contratante estiver fora do estado não poderá ser subcontratação e o subcontratado deverá emitir com ICMS. Tudo por conta do ICMS.

Italo, bom dia, obrigado. Não ajuda, pois este procedimento funcionava até o dia 15. Só para você entender melhor: Transportadora A - emitiu do Rio de Janeiro até Porto Velho. Inicio - Rio de Janeiro Término - Porto Velho Transportadora B - subcontratada, recebeu a carga em Guarulhos e vai levar até Porto Velho. Inicio - Guarulhos Término - Porto Velho Deste jeito funcionava até 15/05/2018. Dia 16/05/2018 rejeitou. Alterado para Inicio - Rio de Janeiro Término - Porto Velho Continua rejeitando, ou seja não passa de nenhum jeito. Atenciosamente Sérgio