Dercide Alvarez

@daniel_paixao Essa imagem que você quer gravar seria JPEG ? Me manda parte do fonte que esta salvando no banco a imagem. Dercide.

O IPI só sairá no Danfe se tiver em campo próprio. Acredito que mesmo tendo sido aprovado, esta incorreto para empresas do Lucro Real. E esta sujeito ao fornecedor não conseguir se creditar do IPI. Pode ser que eu esteja errado. Quando se usa o IPIDevol (empresas que não recolhem IPI), deve-se declarar em outras informações o valor da devolução do IPI. Dercide.

Boa noite, Conseguiram solucionar esse problema ? Estou fazendo teste da NFe 4.0 no Windows 10, usando Wincrypt, xsLibXml2. Dercide.

@cgcesar Conforme já relatei anteriormente, se a empresa é do lucro real, basta preencher os campos do IPI, pois a nota já tem a finalidade de devolução. Não preencha nada dos campos de ipvDevol. Dercide.

@cgcesar "nas operações com não contribuintes do IPI", justamente o que estou te dizendo. As empresas do Simples não são contribuintes do IPI. Dercide.

@cgcesar, A tag IPIDevol é apenas para empresas do SIMPLES, o que você tem que preencher é o IPI. Se empresa não for optanto do simples, preencha apenas o IPI e TOTAL.IPI Se a empresa for do SIMPLES não preencha o IPI e preencha no item pDevol := queChave2.FieldByName('pdevol').AsFloat;vIPIDevol := queChave2.FieldByName('valor_ipi').AsFloat; e nos totais Total.ICMSTot.vIPIDevol Dercide.

E no item ? Como você colocou ?

@cgcesar A empresa que esta devolvendo é do Simples ? Senão for, você deve informar apenas o Total.ICMSTot.vIPI pois a finalidade é devolução e o IPI vai em campo proprio. Total.ICMSTot.vIPIDevol é para empresa do simples. Eu acho que é isso, mas da uma pesquisada no manual. Dercide.

@Eleandro fistsoft Use sempre a pesquisa do forum, tem vários topicos. Dercide.

@Eleandro fistsoft Você criou uma função para gerar o boleto, não sei como você esta chamando com os dados, mas de qualquer forma, veja que cada vez que você executa a função ele cria 1 boleto. O ideal é você fazer uma Loop e preencher a lista com todos os boletos, ai você terá uma matrix com todos os boletos, e não é o caso que esta acontecendo no momento. Reveja os teus fontes, acho que o problema estão neles. Dercide.

@Eleandro fistsoft Anexe parte do fonte, em forma de arquivo. Dercide.

@Eleandro fistsoft Reveja a tua rotina que esta populando os boletos, pois nunca vi isso acontecer. Dercide.

@Cleonir Esse controle você deverá ter no sistema, e deverá definir a data que deverá ser cobrado o juros. Tem que verificar se a data de vencimento é sábado ou domingo, caso seja o juros e multa deverão começar apartir de terça. É o controle que faço. Dercide.

@Eleandro fistsoft vTitulo.TipoDesconto ==> Eu não preencho, isso já deve ter o valor default que deve ser em % ou valor if FTipoDiasProtesto = 0 then ==> Protestar em dias corridos Begin TipoDiasProtesto := diCorridos; CodigoNegativacao := cnProtestarCorrido; End else Begin TipoDiasProtesto := diUteis; CodigoNegativacao := cnProtestarUteis; end; Nos meus fontes esta preenchido dessa forma. CodigoNegativacao ==> esse você não precisa preencher, eu uso para negativação Serasa Dercide.

@Eleandro fistsoft Não tenho como analisar o arquivo remessa, senão me engano o Sicoob tem um link para você mesmo validar a remessa. O ideal é você esperar o retorno e postar as criticas, ai fica mais fácil trabalharmos em cima do problema. Dercide.

@Eleandro fistsoft Primeiro você tem que carregar todos os boletos, e depois fazer a impressão. Você não pode se esquecer de passar o sequencial do nossonumero para cada boleto : NossoNumero := FNossoNumero; ==> ( deve ser incrementado para cada boleto gerado) AcbrBoletoImpressao.MostrarPreview := True; AcbrBoleto.Imprimir; Dercide.

@Eleandro fistsoft Você já olhou o demo ? Qual a tua dificuldade ? O demo esta bem claro as informações. Você deverá repetir a rotina para cada boleto a ser gerado. Titulo := dm.ACBrBoleto.CriarTituloNaLista; with Titulo do begin Vencimento := StrToDate(edtVencimento.Text); DataDocumento := StrToDate(edtDataDoc.Text); NumeroDocumento := edtNumeroDoc.Text; EspecieDoc := edtEspecieDoc.Text; DataProcessamento := Now; Carteira := edtCarteira.Text; NossoNumero := edtNossoNro.Text; ValorDocumento := StrToCurr(edtValorDoc.Text); ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text, 0); LocalPagamento := edtLocalPag.Text; ValorMoraJuros := StrToCurrDef(edtMoraJuros.Text, 0); ValorDesconto := StrToCurrDef(edtValorDesconto.Text, 0); ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text, 0); DataMoraJuros := StrToDateDef(edtDataMora.Text, 0); DataDesconto := StrToDateDef(edtDataDesconto.Text, 0); DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0); DataProtesto := StrToDateDef(edtDataProtesto.Text, 0); PercentualMulta := StrToCurrDef(edtMulta.Text, 0); Dercide.

@Élviro Cavalcanti Sinceramente um update desse eu acho desnecessário, pois pelo jeito ele é utilizado regularmente pendurando o banco. Acho que o ideal é rever em que momentos essa informação de maior atraso será utilizada, caso seja em um relatório ou uma consulta, fica muito mais rápido dar o SELECT areceber.databaixa is null e ai calcular a informação clientes.maioratraso. É o que eu faço no meu sistema. Dercide.

@osmarbentojr Qual o valor dos fontes do MDFe e em quais versão do Delphi compila ? Me manda no email [email protected] Dercide

@Eleandro fistsoft O componente não calcula sozinha, é preciso que todos os dados estejam preenchidos corretamente. Cedente.Agencia Cedente.AgenciaDigito Cedente.Conta Cedente.ContaDigito Cedente.CodigoCedente Cedente.Convenio Cedente.Modalidade Cedente.CodigoTransmissao case FTipoCobranca of 0 : Cedente.CaracTitulo := tcSimples; 1 : Cedente.CaracTitulo := tcVinculada; 2 : Cedente.CaracTitulo := tcCaucionada; 3 : Cedente.CaracTitulo := tcDescontada; 4 : Cedente.CaracTitulo := tcVendor; end; case FTipoCNAB of 0 : AcbrBoleto.LayoutRemessa := c240; 1 : AcbrBoleto.LayoutRemessa := c400; end; Nem todos são necessarios, mas devem estarem preenchidos corretamente. Senão me engano agencia e codigocedente devem estarem preenchidos para calcular o digito. Dercide.

@Eleandro fistsoft Basta você informar o sequencial do nosso numero que você irá utilizar e passar para o componente. with Titulo do begin NossoNumero := IntToStr(FNossoNumero); ..... end; Lembre-se que o sequencial você deverá ter o controle por conta. Dercide.

Boa tarde, Acho que tem um componente que esta parado que era pra essa finalidade, ACBRCNB ou algo parecido. Vi alguns tópicos falando sobre isso. Não acho que seja legal alterar o AcbrBoleto, pois ficaria fora da finalidade do componente, o ideal seria outro componente com esse finalidade. Dercide. ACBrCNAB.rar Debitio Automatico.rar Demo_ACBrCNAB.rar

Bom dia @Daniel Simoes Deu certo a impressão, valeu pela dica. Abraços. Dercide.

Bom dia @Daniel Simoes, Vou testar, mas eu me enganei, ela esta na USB. Posto o retorno do teste. Dercide.

Boa tarde, Tenho um cliente usando a Argox OS-2140, e não estamos conseguindo fazer a impressão. Esta na porta serial, \\maquina\Argox Porém quando mando imprimir da erro Error I/O error 67. Tem que instalar algum driver para essa impressora ? Não mexo muito com essas impressoras, mas a mesma rotina funciona em outro cliente com a 214. Se alguém tiver alguma sugestão será bem vinda. Dercide.