SisMaster Sistemas

Boa tarde! Funcionou, muito obrigado.

Muito obrigado, Daniel. Vou iniciar os procedimentos baseados nas informações que você enviou. Agradecido.

Bom dia, Atualizei a pasta do ACBr com o tortoise e instalei utilizando o ACBrInstall_Trunk2.exe, a instalação aconteceu normalmente, buildei o nosso projeto e deu tudo certo, porém quando executei, exibe a seguinte mensagem: --------------------------- Debugger Exception Notification --------------------------- Project SisMaster.exe raised exception class EReadError with message 'Error reading ACBrBoleto.Configuracoes.WebService.Ambiente: Invalid property value'. --------------------------- Break Continue Copy Help --------------------------- Pressionando continue, aparece esse erro: --------------------------- Application Error --------------------------- Exception EReadError in module SisMaster.exe at 000D8524. Error reading ACBrBoleto.Configuracoes.WebService.Ambiente: Invalid property value. --------------------------- OK --------------------------- Apaguei a pasta do ACBr e reinstalei de novo, porém o erro persiste, alguém pode me ajudar com isso?

Bom dia, primeiro, já quero me desculpar o tópico não está na parte correta do forum. Hoje, nosso ERP já utiliza o ACBr para criar/imprimir o boleto, gerar arquivo de remessa em txt e ler o arquivo de retorno em txt. Porém, gostaríamos de passar a usar a API do Boleto mas tenho algumas duvidas sobre como ela funciona e das possibilidades dela, mesmo tentando usar o exemplo do ACBr "Demo ACBrBoleto" disponível no Tortoise. 1. Se não entendemos errado, a API irá permitir gerar/transmitir boletos bancários diretamente no banco (instituição financeira) sem necessidade de fazer remessa na opção "Registrar Boleto On Line"? Ou não é bem isso? 2. A opção "Consultar Boleto" seria um equivalente ao arquivo de retorno, em que é possível verificar o status dos boletos bancários registrados para saber se foram pagos, em que data, se houve juros etc? 3. Vi que há opções de alguns bancos em homologação e outros não. No ambiente de homologação, eu posso ficar gerando boletos testando inclusive o pagamento dele em datas acima ou abaixo do vencimento para ver o resultado no retorno? Como isso funciona? Existe algum vídeo explicando passo a passo isso? É semelhante ao ambiente de homologação da NF-e, que é praticamente um espelho do ambiente em produção ou possui limitações? 4. Acredito que o titular da conta no banco (instituição financeira) deva fazer o pedido ao gerente para liberar a conta dele para usar essa opção da API, seja em produção ou homologação, quando houver. Isso precisa ser feito banco a banco ou existe um regra geral baseada em CNPJ/CPF como se fosse um certificado digital? Onde consigo mais informações a respeito? Novamente, peço desculpa se são dúvidas banais mas como estamos iniciando agora a tentativa de implantação da API Boleto em nosso ERP, seria importante ter essas informações antecipadamente para nos planejarmos melhor sobre como e onde utilizar ela. Se tiverem vídeos de tutoriais bem completos sobre uso dela via ACBr, agradecemos também.

Deu certo, muito obrigado

Bom dia. Quando eu faço o seguinte código: ACBrNFe.NotasFiscais.Clear; ACBrNFeDANFEFR.FastFileInutilizacao := 'C:\SisMaster\reports\acbr\INUTILIZACAO.fr3'; ACBrNFeDANFEFR.PathPDF := 'C:\SisMaster\Docs\NFe\'; vCaminho := 'C:\SisMaster\Docs\NFe\35241506911700010755024000000423000000430-procInutNFe.xml'; //XML em anexo ACBrNFe.InutNFe.LerXML(vCaminho); if ACBrNFe.InutNFe.RetInutNFe.nProt = EmptyStr then begin raise Exception.Create('Não foi carregado nenhuma inutilização'); Exit; end; ACBrNFe.ImprimirInutilizacao; Sempre cai no exception: "Não foi carregado nenhuma inutilização" e, se eu removo o bloco do if é impresso, mas com tudo em branco... Como eu uso Fast Report me baseei no exemplo "DemoDANFeFR" e com ele está acontecendo o mesmo problema, vou anexar algumas imagens [DemoDANFeFR.png] Depois, testei no ACBrNFe_Exemplo, mas como eu não tenho Fortes eu só usei o executavel e funcionou normal com o mesmo XML, vou anexar algumas imagens [ACBrNFe_Exemplo.png] Abri o código fonte do ACBrNFe_Exemplo (mas não consigo compilar) e a parte de LerXML está igual (mas usando o OpenDialog). Gostaria de entender aonde estou errando... 35241506911700010755024000000423000000430-procInutNFe.xml

Boa tarde, Estou homologando o ACBrSAT no nosso ERP e implementando a opção de impressão em EscPos e FastReports. Ao utilizar o componente ACBrSATExtratoFR, notei que várias propriedades não surtem efeito na impressão nem no preview, mesmo após alterá-las. Abaixo estão as propriedades que não apresentam efeito na impressão quando modificadas: EspacoFinal; ImprimeCodigoEan; ImprimeCPFNaoInformado; ImprimeDescAcrescItem; ImprimeEmUmaLinha; Informações do Logo: ImprimeLogoLateral, LogoAutoSize, LogoCenter, LogoHeigth, LogoStretch, LogoVisible e LogoWidth; ImprimeMsgOlhoNoImposto; QrCode: ImprimeQRCode e ImprimeQRCodeLateral; LarguraBobina. Estamos utilizando Delphi Alexandria, e ao procurar essas propriedades no arquivo do FastReports (ACBr\Fontes\ACBrSAT\Extrato\Fast\ACBrSATExtratoFR.pas), não as encontrei. Em seguida, busquei no Fortes (ACBr\Fontes\ACBrSAT\Extrato\Fortes) e constatei que todas essas propriedades estão implementadas. Além disso, observei os seguintes problemas: MargemSuperior: A margem funciona, porém o papel não ajusta conforme a impressão, resultando em cortes no papel quando deveria exibir mais informações. MargemDireita: Alguns componentes não estão respeitando o valor configurado para a margem. Anexei imagens para ilustrar cada um dos problemas descritos acima. * Observação: Tive que editar as imagens para que não ultrapassassem o limite de 2MB permitido no post. Abaixo, explico cada imagem: EspacoFinal.png: independente da propriedade estar habilitada ou desabilitada, não faz diferença na impressão (nunca sai o espaço final). Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei: //Para impressoras sem guilhotina não cortar no QrCorde pEspacoFinal.Height := EspacoFinal; pEspacoFinalCan.Height := EspacoFinal; ImprimeCodigoEan.pgn: independente da propriedade estar habilitada ou desabilitada, não faz diferença na impressão (nunca sai o código EAN). Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei: if (Length( Trim( Prod.cEAN ) ) > 0) and (ACBrSATExtrato.ImprimeCodigoEan) then sCodigo := Trim(Prod.cEAN) else sCodigo := Trim(Prod.cProd); ImprimeCPFNaoInformado.png: independente da propriedade estar habilitada ou desabilitada, não faz diferença na impressão (sempre exibe a frase: "CONSUMIDOR NÃO IDENTIFICADO"). Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei: if (Trim(Dest.xNome) <> '') then NomeConsumidor := Trim(Dest.xNome) else if (ACBrSATExtrato.ImprimeCPFNaoInformado and (Trim(Dest.CNPJCPF) = '')) then NomeConsumidor := ACBrStr('CONSUMIDOR NÃO IDENTIFICADO') else NomeConsumidor := ''; if (Trim(Dest.CNPJCPF) <> '') then NomeConsumidor := FormatarCNPJouCPF(Dest.CNPJCPF) + IfThen(NomeConsumidor<>'', ' - '+NomeConsumidor, ''); PrintIt := (NomeConsumidor <> ''); if PrintIt then mConsumidorLateral.Lines.Text := NomeConsumidor; ImprimeDescAcrescItem.png: independente da propriedade estar habilitada ou desabilitada, não faz diferença na impressão. Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei: procedure TACBrSATExtratoFortesFr.rlbDescItemBeforePrint(Sender: TObject; var PrintIt: boolean); begin with ACBrSATExtrato.CFe.Det.Items[fNumItem] do begin PrintIt := ACBrSATExtrato.ImprimeDescAcrescItem and (not Resumido) and (Prod.vDesc > 0); if PrintIt then lDescItem.Caption := FormatFloatBr(Prod.vDesc,'-,0.00'); end; end; procedure TACBrSATExtratoFortesFr.rlbRatDescSubTotBeforePrint(Sender: TObject; var PrintIt: Boolean); begin with ACBrSATExtrato.CFe.Det.Items[fNumItem] do begin PrintIt := ACBrSATExtrato.ImprimeDescAcrescItem and (not Resumido) and (Prod.vRatDesc > 0); if PrintIt then lRatDescSubTot.Caption := FormatFloatBr(Prod.vRatDesc,'-,0.00'); end; end; procedure TACBrSATExtratoFortesFr.rlbAcresItemBeforePrint(Sender: TObject; var PrintIt: boolean); begin with ACBrSATExtrato.CFe.Det.Items[fNumItem] do begin PrintIt := ACBrSATExtrato.ImprimeDescAcrescItem and (not Resumido) and (Prod.vOutro > 0); if PrintIt then lAcrescItem.Caption := FormatFloatBr(Prod.vOutro,'+,0.00'); end; end; procedure TACBrSATExtratoFortesFr.rlbRatAcresSubTotBeforePrint(Sender: TObject; var PrintIt: Boolean); begin with ACBrSATExtrato.CFe.Det.Items[fNumItem] do begin PrintIt := ACBrSATExtrato.ImprimeDescAcrescItem and (not Resumido) and (Prod.vRatAcr > 0); if PrintIt then lRatAcresSubTot.Caption := FormatFloatBr(Prod.vRatAcr,'+,0.00'); end; end; ImprimeEmUmaLinha.png: independente da propriedade estar habilitada ou desabilitada, não faz diferença na impressão (sempre vai imprimir em duas linhas). Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei: if ACBrSATExtrato.ImprimeEmUmaLinha then begin LinhaItem := sCodigo + ' [DesProd] ' + ACBrSATExtrato.FormatarQuantidade(Prod.qCom, False) + ' ' + Trim( Prod.uCom) + ' X ' + FormatFloatBr(Prod.vUnCom, mvUnCom) + sVlrImpostos; // acerta tamanho da descrição nTamDescricao := maxCaracter - Length(LinhaItem); sDescricao := PadRight(Copy(Trim(Prod.xProd), 1, nTamDescricao), nTamDescricao); LinhaItem := StringReplace(LinhaItem, '[DesProd]', sDescricao, [rfReplaceAll]); mLinhaItem.Lines.Add(LinhaItem); end Logo.png: independente das propriedades seguintes propriedades (ImprimeLogoLateral, LogoAutoSize, LogoCenter, LogoHeigth, LogoStretch, LogoVisible e LogoWidth) estarem habilitadas ou desabilitadas, não faz diferença na impressão. Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei código para todas elas; ImprimeMsgOlhoNoImposto.png: Mesmo com a propriedade desabilitada, continua imprimindo a frase "Valor aproximado dos Tributos deste Cupom" quando busco no ACBrSATExtratoFR.pas, dessa vez encontra o código abaixo: procedure TACBrSATExtratoFR.CarregaInformacoesAdicionais; var i: Integer; begin with FCFe, cdsInformacoesAdicionais do begin Close; CreateDataSet; Append; if (Emit.cRegTrib = RTSimplesNacional) then FieldByName('ObsFisco').AsString := Msg_ICMS_123_2006; for i := 0 to Pred(obsFisco.Count) do FieldByName('ObsFisco').AsString := FieldByName('ObsFisco').AsString + obsFisco[i].xCampo + '-' + obsFisco[i].xTexto; if (InfAdic.infCpl <> '') or (Self.ImprimeMsgOlhoNoImposto and (Total.vCFeLei12741 > 0)) then FieldByName('infAdic').AsString := StringReplace(InfAdic.infCpl,';',sLineBreak,[rfReplaceAll]);; Post; end; end; QrCode.png: independente das propriedades seguintes propriedades ImprimeQrCode e ImprimeQRCodeLateral estarem habilitadas ou desabilitadas, não faz diferença na impressão e quando busco no ACBrSATExtratoFR.pas não encontra nada, mas buscando no ACBrSATExtratoFortesFr.pas encontra código para as duas; LarguraBobina.png: independente da propriedade estar habilitada ou desabilitada, não faz diferença na impressão, sempre imprimindo com a mesma largura. Ao buscar no ACBrSATExtratoFR.pas, não encontrei nada relacionado, mas ao buscar no ACBrSATExtratoFortesFr.pas, encontrei: // Largura e Margens do Relatório // RLLayout.Width := LarguraBobina; RLLayout.Margins.LeftMargin := MargemEsquerda; RLLayout.Margins.RightMargin := MargemDireita; RLLayout.Margins.TopMargin := MargemSuperior; RLLayout.Margins.BottomMargin := MargemInferior; // Ajustando o tamanho da página // RLLayout.PageBreaking := pbNone; RLLayout.PageSetup.PaperSize := fpCustom ; RLLayout.PageSetup.PaperWidth := Round(LarguraBobina/MMAsPixels) ; Margens.png: encontrei dificuldades com as seguintes propriedades: MargemSuperior: quando configurada, a impressão apresenta a margem superior, mas o papel acaba no código de barras e o QrCode não é exibido completamente. Na impressão em uma Bematech MP-4200 TH, o resultado é cortado logo após o código de barras. MargemDireita: alguns componentes não respeitam o valor configurado, ficando fora da impressão. Gostaria de saber se há possibilidade de ajustar e implementar as propriedades mencionadas. Atenciosamente, Michel Meneghin