Leonardo Gregianin

Obrigado você João Henrique.

Os schemas ainda não foram alterados. Alguém sabe qual o contato deve ser enviado isso pro governo?

Bom dia, fiz uma pequena alteração visual no arquivo ACBrDANFeCBRaveRetrato.pas para não mostrar o traço "-" quando não há informação, grato se subirem para o repositorio. --- ACBrDANFeCBRaveRetrato.pas-rev5088.svn000.tmp.pas qui nov 22 12:45:44 2012 +++ ACBrDANFeCBRaveRetrato.pas qui mai 16 09:05:03 2013 @@ -355,7 +355,10 @@ NewLine; if vDuasLinhas then begin - vEnd:=SiteDoEmitente+' - '+EmailDoEmitente; + if (SiteDoEmitente <> '') and (EmailDoEmitente <> '') then + vEnd := SiteDoEmitente+' - '+EmailDoEmitente; + if (SiteDoEmitente = '') and (EmailDoEmitente <> '') then + vEnd := EmailDoEmitente; PrintCenter(vEnd,CenterX); end else

Se alguém puder testar e simular a situação.. agradecido.

Meu problema acontece quando utilizo "ACBrNFe1.NotasFiscais.ImprimirPDF", se eu passo MostrarSetup como "True" não gera o arquivo, se passo "False" gera correto na pasta "PathPDF". Utilizo Delphi 2010, Rave 7.7 e estou com a última atualização do svn de 03/05/2013.

Pelo que lí no Manual de integração da NF-e não há campo específico para observação de cada produto. O que há é que a descrição do produto aceita até 120 caracteres, por isso acredito que seu sistema carrega a descrição do produto e depois as observações relevantes no mesmo campo de descrição.

Carrega o anexo para vermos

Não tive problemas com isso. Primeiro adiciono as duas notas ao componente, envio as duas e depois aparece uma única vez a tela do setup (com Setup ativado), ao mostrar o Preview aparece as duas notas para visualização.

Basicamente é o mesmo código do ECFTeste: cDatIni := VSEditDataInicial2.Text; cDatFim := VSEditDataFinal2.Text; dDatIni := StrToDateTime( StringReplace(cDatIni,'/', DateSeparator, [rfReplaceAll] ) ) ; dDatFim := StrToDateTime( StringReplace(cDatFim,'/', DateSeparator, [rfReplaceAll] ) ) ; ACBrECF1.EspelhoMFD_DLL(dDatIni, dDatFim, DirectoryEdit1.Text);

Ninguém da Daruma pra ajudar?

Pela facilicidade de ajustes no layout da Danfe eu utilizo o rave em arquivo, mas eu poderia utilizar os dois sem problemas. Qual comando utilizo para utilizar um ou outro? Como faço alterações no layout do RaveCB, por exemplo, aumentar coluna, retirar o sublinhado de alguma palavra, etc.

Estou com problemas para gerar o arquivo texto do espelho MFD da Daruma FS700. Aparece erro na linha 4861 do ACBrECFDaruma: "Erro na execução de rGerarEspelhoMFD_ECF_Daruma", o caminho fixo Espelho_MFD.txt não teria que ser criado automático e depois copiava para o arquivo que eu escolhí? Tentei deixar criado o arquivo Espelho_MFD.txt em branco, não aconteceu erros mas não gerou nenhuma informação no arquivo. Tem algum passo a passo que como gerar o espelho? Testei com o ECFTeste.exe e com o meu programa em XE3, peguei todas as DLL no site da Daruma. Grato.

Boa tarde, De acordo com o layout o campo "InfAdic.infCpl" pode receber 5 mil caracteres, no RaveCB imprime correto os 5000 caracteres com uma parte no rodapé da primeira página e o restante na segunda página, porém para o formato Rave (NotaFiscalEletronica.rav) somente imprime +-600 caracteres, ou seja, o que couber no quadrado do rodapé. Isto é algum erro, ou é uma limitação do Rave mesmo?

Será que é algum erro na geração do comando? Esse comando acima é o correto? att.

Pra dizer que não tentei... O teste que fiz é no exemplo ECFTeste. Muitos comandos funcionam perfeitamente porém ao vender item as vezes acontece erro de violação de acesso as vezes não acontece: Um comando válido, que imprimiu o item foi: #2'^'#0#$1C'?NN00000100000010000000000000000000000001000000000000000000000UN111222333'#0'TESTE DE PRODUTO'#0'ê'#$12 mas nem sempre é o mesmo comando nos próximos itens que se envia para impressora.

Definitivamente desisto do Delphi 5.

Comentei algumas linhas que se referiam a esta dll em libeay32.pas e OpenSSL.pas e passou. Compilou e instalou o pacote, porém somente os componentes ACBrEAD e ACBrAAC, não teria que instalar todos os componentes? Depois disso tento instalar o ACBrSerial e aparece o erro: "Cannot load package ACBrSerial. It contains unit ACBrExtenso, which is also contained in package ACBr_D5". O que eu posso fazer para arrumar isso? Meu pacote ACBr_D5 ficou assim: package ACBr_D5; {$R *.RES} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'ACBr Automação Comercial Brasil VCL D5 (http://acbr.sourceforge.net/)'} {$IMPLICITBUILD ON} requires Vcl50, Vclx50, RxCtl5; contains ACBrReg in '..\..\Fontes\ACBrComum\ACBrReg.pas', ACBrBase in '..\..\Fontes\ACBrComum\ACBrBase.pas', ACBrConsts in '..\..\Fontes\ACBrComum\ACBrConsts.pas', ACBrCalculadora in '..\..\Fontes\ACBrDiversos\ACBrCalculadora.pas', ACBrCHQ in '..\..\Fontes\ACBrSerial\ACBrCHQ.pas', ACBrCHQBematech in '..\..\Fontes\ACBrSerial\ACBrCHQBematech.pas', ACBrCHQChronos in '..\..\Fontes\ACBrSerial\ACBrCHQChronos.pas', ACBrCHQClass in '..\..\Fontes\ACBrSerial\ACBrCHQClass.pas', ACBrCHQImpressoraComum in '..\..\Fontes\ACBrSerial\ACBrCHQImpressoraComum.pas', ACBrCHQImpressoraECF in '..\..\Fontes\ACBrSerial\ACBrCHQImpressoraECF.pas', ACBrCHQPerto in '..\..\Fontes\ACBrSerial\ACBrCHQPerto.pas', ACBrCHQSchalter in '..\..\Fontes\ACBrSerial\ACBrCHQSchalter.pas', ACBrDIS in '..\..\Fontes\ACBrSerial\ACBrDIS.pas', ACBrDISClass in '..\..\Fontes\ACBrSerial\ACBrDISClass.pas', ACBrDISGertecSerial in '..\..\Fontes\ACBrSerial\ACBrDISGertecSerial.pas', ACBrDISGertecTeclado in '..\..\Fontes\ACBrSerial\ACBrDISGertecTeclado.pas', ACBrECF in '..\..\Fontes\ACBrSerial\ACBrECF.pas', ACBrECFBematech in '..\..\Fontes\ACBrSerial\ACBrECFBematech.pas', ACBrECFClass in '..\..\Fontes\ACBrSerial\ACBrECFClass.pas', ACBrECFDaruma in '..\..\Fontes\ACBrSerial\ACBrECFDaruma.pas', ACBrECFMecaf in '..\..\Fontes\ACBrSerial\ACBrECFMecaf.pas', ACBrECFNaoFiscal in '..\..\Fontes\ACBrSerial\ACBrECFNaoFiscal.pas', ACBrECFSchalter in '..\..\Fontes\ACBrSerial\ACBrECFSchalter.pas', ACBrECFSweda in '..\..\Fontes\ACBrSerial\ACBrECFSweda.pas', ACBrECFSwedaSTX in '..\..\Fontes\ACBrSerial\ACBrECFSwedaSTX.pas', ACBrECFYanco in '..\..\Fontes\ACBrSerial\ACBrECFYanco.pas', ACBrECFICash in '..\..\Fontes\ACBrSerial\ACBrECFICash.pas', ACBrECFEpson in '..\..\Fontes\ACBrSerial\ACBrECFEpson.pas', ACBrExtenso in '..\..\Fontes\ACBrDiversos\ACBrExtenso.pas', ACBrRFD in '..\..\Fontes\ACBrSerial\ACBrRFD.pas', ACBrGAV in '..\..\Fontes\ACBrSerial\ACBrGAV.pas', ACBrGAVClass in '..\..\Fontes\ACBrSerial\ACBrGAVClass.pas', ACBrGAVImpressoraComum in '..\..\Fontes\ACBrSerial\ACBrGAVImpressoraComum.pas', ACBrGAVImpressoraECF in '..\..\Fontes\ACBrSerial\ACBrGAVImpressoraECF.pas', ACBrGAVSerialGerbo in '..\..\Fontes\ACBrSerial\ACBrGAVSerialGerbo.pas', ACBrGAVSerialMenno in '..\..\Fontes\ACBrSerial\ACBrGAVSerialMenno.pas', ACBrLCB in '..\..\Fontes\ACBrSerial\ACBrLCB.pas', ACBrValidador in '..\..\Fontes\ACBrDiversos\ACBrValidador.pas', ACBrCHQSotomaq in '..\..\Fontes\ACBrSerial\ACBrCHQSotomaq.pas', ACBrECFDataRegis in '..\..\Fontes\ACBrSerial\ACBrECFDataRegis.pas', ACBrD5 in '..\..\Fontes\ACBrDiversos\ACBrD5.pas', ACBrBALToledo in '..\..\Fontes\ACBrSerial\ACBrBALToledo.pas', ACBrBAL in '..\..\Fontes\ACBrSerial\ACBrBAL.pas', ACBrBALClass in '..\..\Fontes\ACBrSerial\ACBrBALClass.pas', ACBrBALFilizola in '..\..\Fontes\ACBrSerial\ACBrBALFilizola.pas', ACBrTroco in '..\..\Fontes\ACBrDiversos\ACBrTroco.pas', ACBrECFUrano in '..\..\Fontes\ACBrSerial\ACBrECFUrano.pas', ACBrECFFiscNET in '..\..\Fontes\ACBrSerial\ACBrECFFiscNET.pas', ACBrTERWilbor in '..\..\Fontes\ACBrSerial\ACBrTERWilbor.pas', ACBrTER in '..\..\Fontes\ACBrSerial\ACBrTER.pas', ACBrTERClass in '..\..\Fontes\ACBrSerial\ACBrTERClass.pas', ACBrFala in '..\..\Fontes\ACBrDiversos\ACBrFala.pas', ACBrECFQuattro in '..\..\Fontes\ACBrSerial\ACBrECFQuattro.pas', ACBrDISKeytecTeclado in '..\..\Fontes\ACBrSerial\ACBrDISKeytecTeclado.pas', ACBrCHQUrano in '..\..\Fontes\ACBrSerial\ACBrCHQUrano.pas', ACBrETQ in '..\..\Fontes\ACBrSerial\ACBrETQ.pas', ACBrETQClass in '..\..\Fontes\ACBrSerial\ACBrETQClass.pas', ACBrETQPpla in '..\..\Fontes\ACBrSerial\ACBrETQPpla.pas', ACBrETQZplII in '..\..\Fontes\ACBrSerial\ACBrETQZplII.pas', ACBrECFNCR in '..\..\Fontes\ACBrSerial\ACBrECFNCR.pas', ACBrDevice in '..\..\Fontes\ACBrSerial\ACBrDevice.pas', ACBrBarCode in '..\..\Fontes\ACBrDiversos\ACBrBarCode.pas', ACBrBALDigitron in '..\..\Fontes\ACBrSerial\ACBrBALDigitron.pas', ACBrBALLucasTec in '..\..\Fontes\ACBrSerial\ACBrBALLucasTec.pas', ACBrBALMagellan in '..\..\Fontes\ACBrSerial\ACBrBALMagellan.pas', ACBrBALMagna in '..\..\Fontes\ACBrSerial\ACBrBALMagna.pas', ACBrBALToledo2180 in '..\..\Fontes\ACBrSerial\ACBrBALToledo2180.pas', ACBrBALUrano in '..\..\Fontes\ACBrSerial\ACBrBALUrano.pas', ACBrDISSmakTeclado in '..\..\Fontes\ACBrSerial\ACBrDISSmakTeclado.pas', ACBrECFEscECF in '..\..\Fontes\ACBrSerial\ACBrECFEscECF.pas', ACBrETQEpl2 in '..\..\Fontes\ACBrSerial\ACBrETQEpl2.pas', ACBrUtil in '..\..\Fontes\ACBrComum\ACBrUtil.pas', libeay32 in '..\..\Fontes\ACBrComum\libeay32.pas'; end.

Compilei o synapse.dpk sem erros, compilei o ACBrD5.dpk sem erros e ao instalar o ACBrD5 aconteceu o erro: "O programa não pode ser instalado porque está faltando libcrypto.dll no seu computador". Inclui esta dll no system32 originada do projeto msysgit e apareceu outro erro: "libcrypto.dll não foi criado para ser executado no Windows ou contén erro. Tente instalar novamente...". O que poderia ser?

Estou tentando compilar os pacotes no Delphi 5. Incluí em ACBrD5.pas algumas funções que encontrei do Delphi 7 e em algumas units do ACBr tive que declarar ACBrD5 e alguns outros ajustes menores para compatibilização. Gostaria de entender quais os passos exatos que preciso fazer: primeiro compilo e instalo o pacote ACBr_D5.dpk ? E depois compilo e instalo o ACBrSerial.dpk ?

Obrigado pela luz Daniel, mas neste momento não tem possibilidade de migrar a IDE. Existem decisões que não depende só de mim, mas as pessoas querem resultado de um jeito ou de outro. Por isso minha insistência em utilizar Delphi 5 com o ACBr em DLL. Na verdade, o exemplo com ACBrECFDLL.dll funciona bem com as funções já declaradas, minha dúvida seria somente na declaração e utilização das outras funções, como por exemplo o retorno do número do cupom fiscal ou o número da série da Ecf. Se eu conseguir dar andamento neste projeto, prometo disponibilizar o que eu fizer. Com isso ajudará as 2 ou 3 empresas que ainda utilizam Delphi 5 no mundo

Mesmo utilizando Delphi? No caso, não consigo/quero instalar o ACBr no Delphi 5, somente utilizar a dll.

Depois do costume de utilizar o componente do ACBr, estou com dificuldade de utilizar via DLL. Estou em um projeto em Delphi 5 e preciso utilizar a dll ACBrECFDLL.dll, estou começando com o demo que já existe no trunk (trunk\Exemplos\ACBrDLL\Delphi) mas faltam algumas declarações da DLL. Por exemplo, para retornar o número de série da ECF declarei em UnitDeclaracao.pas: Function NumECF(Serie: String = ''): Integer; stdcall; External 'ACBrECFDLL.dll'; E em Principal.pas uso: Retorno := NumECF(Serie); Label2.Caption := Serie; Seria isso?

Muito obrigado.

Aparentemente nem todos Regys. --- C:/Users/lvr/AppData/Local/Temp/EfetuaPagamento.pas-revBASE.svn000.tmp.pas seg abr 12 00:08:05 2010 +++ E:/acbr/trunk/Exemplos/ACBrECF/Delphi/EfetuaPagamento.pas seg abr 1 16:11:42 2013 @@ -73,7 +73,9 @@ procedure TfrPagamento.edValorKeyPress(Sender: TObject; var Key: Char); begin if Key in [',','.'] then - Key := DecimalSeparator ; + {$IFDEF VER240} Key := FormatSettings.DecimalSeparator + {$ELSE} SysUtils.DecimalSeparator + {$ENDIF} end;

Juliomar Marchetti, foi corrigido no update 2 do XE3 ?