MarceloPeron

Certo Juliomar, iremos pedir ao cliente para verificar com o seu contador. Obrigado

Boa tarde, temos um cliente com uma filial em PE que já emite CTe há vários anos. Hoje, devido a uma necessidade nossa, ao fazer o envio, deste mesmo cliente, em ambiente de homologação, recebemos a rejeição: IE Emitente não autorizada a emitir CT-e para o modal informado. No caso, o tipo do CTe é normal e o modal é o rodoviário (a forma mais comum utilizada pelo cliente). Será que é possível que o cliente esteja autorizado a emitir em produção mas não está em homologação ? Obrigado

Boa tarde, estou com uma dificuldade na consulta do boleto pela API ITAU, estou conseguindo registrar normal, mas na colsulta só me retorno http 400 '{"error":{"codigo":"400","mensagem":"Erro na validação de Campos","campos":[{"campo":"view","mensagem":"View inválida","valor":"full"}]}}' procedure TfrmFfat003a.RetornoAPIItau; VAR vTitulo : TACBrTitulo; vDvAge : String; begin Try DmHfat003a.qAPI.First; UniProgressBarAPI.Visible := True; UniProgressBarAPI.Min := 0; UniProgressBarAPI.Max := DmHfat003a.qAPI.RecordCount; UniSession.Synchronize; UniProgressBarAPI.Position := 0; Application.ProcessMessages; While DmHfat003a.qAPI.Eof = False do Begin ACBrBoleto.Banco.TipoCobranca := cobItau; ACBrBoleto.Configuracoes.WebService.VersaoDF := 'V2'; ACBrBoleto.Configuracoes.WebService.Ambiente := taHomologacao; ACBrBoleto.Configuracoes.WebService.SSLCryptLib := cryOpenSSL; ACBrBoleto.Configuracoes.WebService.SSLHttpLib := TSSLHttpLib.httpOpenSSL; ACBrBoleto.Configuracoes.WebService.SSLType := TSSLType.LT_TLSv1_2; ACBrBoleto.Configuracoes.WebService.UseCertificateHTTP := True; ACBrBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe; ACBrBoleto.Configuracoes.WebService.Filtro.Clear; ACBrBoleto.Configuracoes.WebService.Filtro.indicadorSituacao := isbNenhum; ACBrBoleto.Configuracoes.WebService.Filtro.dataMovimento.DataInicio := Now - 30; ACBrBoleto.Configuracoes.WebService.Filtro.dataVencimento.DataFinal := Now; ACBrBoleto.Cedente.CedenteWS.ClientID := DmHfat003a.Parametros.ClientID; ACBrBoleto.Cedente.CedenteWS.ClientSecret := DmHfat003a.Parametros.ClientSecret; ACBrBoleto.Cedente.CedenteWS.KeyUser := DmHfat003a.Parametros.DeveloperKey; ACBrBoleto.Cedente.CedenteWS.Scope := DmHfat003a.Scope.Itau; ACBrBoleto.Cedente.CedenteWS.IndicadorPix := False; If ACBrBoleto.Configuracoes.WebService.Ambiente = taProducao Then Begin ACBrBoleto.Configuracoes.WebService.Certificado := DmHfat003a.Parametros.CertificadoChavePem; ACBrBoleto.Configuracoes.WebService.ChavePrivada := DmHfat003a.Parametros.CertificadoChavePrivada; End; ACBrBoleto.ListadeBoletos.Clear; ACBrBoleto.Cedente.Conta := DmHfat003a.qAPICONTA.AsString; ACBrBoleto.Cedente.ContaDigito := DmHfat003a.qAPIDV_CONTA.AsString; ACBrBoleto.Cedente.Agencia := DmHfat003a.qAPIAGENCIA.AsString; ACBrBoleto.Cedente.AgenciaDigito := '0'; ACBrBoleto.Cedente.Modalidade := ''; ACBrBoleto.Cedente.CodigoCedente := DmHfat003a.qAPIAGENCIA.AsString + DmHfat003a.qAPICONTA.AsString + DmHfat003a.qAPIDV_CONTA.AsString; vTitulo := ACBrBoleto.CriarTituloNaLista; With vTitulo do Begin Vencimento := StrToDateTimeDef(DmHfat003a.qAPIVENCIMENTO.AsString,0); DataDocumento := StrToDateTimeDef(DmHfat003a.qAPIFATURAMENTO.AsString,0); NumeroDocumento := DmHfat003a.qAPINUMERO_INTERNO.AsString; EspecieDoc := 'DM'; Aceite := atNao; DataProcessamento := Now; Carteira := DmHfat003a.qAPICARTEIRA.AsString; NossoNumero := DmHfat003a.qAPINUMERO_BOLETO.AsString; ValorDocumento := DmHfat003a.qAPIVALOR.AsFloat; Sacado.NomeSacado := DmHfat003a.qAPIPAGADOR.AsString; Sacado.Logradouro := DmHfat003a.qAPILOGRADOURO.AsString; Sacado.Numero := DmHfat003a.qAPINUMERO.AsString; Sacado.Bairro := DmHfat003a.qAPIBAIRRO.AsString; Sacado.CEP := DmHfat003a.qAPICEP.AsString; Sacado.Cidade := DmHfat003a.qAPICIDADE.AsString; Sacado.UF := DmHfat003a.qAPIESTADO.AsString; Sacado.CNPJCPF := DmHfat003a.qAPICNPJ.AsString; ValorDesconto := DmHfat003a.qAPIDESCONTO.AsFloat; PercentualMulta := DmHfat003a.qAPIMULTA_ATRASO.AsFloat; CodigoMoraJuros := cjValorDia; End; ACBrBoleto.Cedente.Nome := DmHfat003a.Parametros.NomeEmpresa; ACBrBoleto.Cedente.CNPJCPF := DmHfat003a.Parametros.CNPJEmpresa; ACBrBoleto.Enviar; dm_rc.rc_ShowSweetAlert('Erro',IntToStr(ACBrBoleto.ListaRetornoWeb[0].HTTPResultCode) + ' - ' + ACBrBoleto.ListaRetornoWeb[0].DadosRet.TituloRet.CodigoEstadoTituloCobranca + ' - ' + ACBrBoleto.ListaRetornoWeb[0].DadosRet.TituloRet.EstadoTituloCobranca, 'error'); UniSession.Synchronize; UniProgressBarAPI.Position := UniProgressBarAPI.Position + 1; Application.ProcessMessages; DmHfat003a.qAPI.Next; End; Except On E : Exception do dm_rc.rc_ShowSweetAlert('Erro',E.Message,'error'); End; end;

Obrigado pelo retorno Italo, a sua resposta foi o que eu imaginava. Vou discutir a questão aqui com os meus responsáveis.

Bom dia a todos, Um dos nossos clientes está solicitando um QRCode de chave PIX na impressão do CTe, para CTe a vista. Minha dúvida é: se fizermos isso, estaremos alterando o layout de impressão de uma forma que fique fora do padrão ? Será que poderemos ter problemas com a fiscalização por termos incluído uma informação que não está prevista no layout normal ?

Bom dia, Desde ontem estou tendo dificuldades na consulta de disponibilidade da sefaz com clientes de MG, está havendo alguma intermitência ? Ora tenho o status 107 ora não me retorna nada.

Obrigado Italo

Boa tarde, Fomos informados por um cliente que desde o dia 03/04/23, é possível substituir um CTe sem Nota Fiscal ou CTe de anulação (Ajuste SINIEF N. 31 de 23/09/22). Porém, quando fazemos o envio, o ACBrCTe monta as tags "tomaICMS e refCTe, que no caso não tem valores, e assim cai na validação do componente. Segue abaixo trecho do meu código da montagem da informação do CTe substituto. de que forma eu devo montar o trecho ? If qCTeNUM_ID_CTE_44_SUB.AsString <> '' Then Begin If qCTeFJ_CONSIG.AsString <> 'J' Then vChCteAnu := qCTeCHV_ANU_CTE_SUB.AsString Else vChCteAnu := ''; With infCTeNorm.infCteSub do Begin chCte := qCTeNUM_ID_CTE_44_SUB.AsString; refCteAnu := vChCteAnu; If qCTeFJ_CONSIG.AsString = 'J' Then Begin If qCTeTP_CHV_ANU_CTE_SUB.AsString = 'NFE' Then tomaICMS.refNFe := qCTeCHV_ANU_CTE_SUB.AsString Else Begin tomaICMS.refCte := qCTeCHV_ANU_CTE_SUB.AsString; Case StrToIntDef(qCTeAJUTOMACTESUB.AsString,0) Of 0 : indAlteraToma := tiNao; 1 : indAlteraToma := tiSim; End; End; End; End; End;

Entendi Juliomar, foi o que eu pensei também. Vou passar isso para os meus responsáveis. Obrigado

Boa tarde, Um dos clientes está solicitando o QR Code da chave pix na impressão do CTe (isso é para os casos de conhecimentos a vista). Uso ACBr para transmissão, mas o PDF eu tenho meu próprio layout. Já tenho o QR Code da sefaz e estou com receio de por outro e isso dar algum problema com fiscalização, devido ao layout sair do habitual. Será que poderemos ter problemas se aceitarmos esta solicitação ? Obrigado

entendi, obrigado pelos esclarecimentos.

sim Ítalo, vou alterar minha rotina para envio por lote. No caso do MDFe também é limitado a 50 por lote ? Obrigado

boa tarde a todos, A minha rotina de envio do CTe / MDFe está funcionando muito bem. Porém, um dos nossos clientes reclamou do tempo do processo ( eles enviam de 400 a 600 CTes no final da tarde). Estou enviando de forma síncrona (um CTe por lote) e o tempo médio por CTe foi de 3s (isso incluso todos os updates que faço no banco do cliente depois da resposta da sefaz). Alterei para enviar em lote e testei com 5 CTes e o tempo baixou mas não muito, (cerca de 2,5 s por CTe). Alguém mais já fez esta comparação ? O tempo entre um método e outro é tão pequeno assim como apontou os meus testes ?

perfeito, obrigado Italo.

consegui resolver, bastou copiar o trecho abaixo do arquivo cteTiposBasico_v3.00_Homologacao.xsd para o arquivo cteTiposBasico_v3.00.xsd. Obrigadp pela ajuda. <xs:element name="infCTeSupl" minOccurs="0"> <xs:annotation> <xs:documentation>Informações suplementares do CT-e</xs:documentation> </xs:annotation> <xs:complexType> <xs:sequence> <xs:element name="qrCodCTe"> <xs:annotation> <xs:documentation>Texto com o QR-Code impresso no DACTE</xs:documentation> </xs:annotation> <xs:simpleType> <xs:restriction base="xs:string"> <xs:whiteSpace value="preserve"/> <xs:minLength value="50"/> <xs:maxLength value="1000"/> <xs:pattern value="((HTTPS?|https?)://.*\?chCTe=[0-9]{44}&amp;tpAmb=[1-2](&amp;sign=[!-ÿ]{1}[ -ÿ]{0,}[!-ÿ]{1}|[!-ÿ]{1})?)"/> </xs:restriction> </xs:simpleType> </xs:element> </xs:sequence> </xs:complexType> </xs:element>