Identifica Consumidor

[hintz]

estou implementando a nota fiscal gaucha numa impressora sweda st120 e estou tentando utilizar o comando ACBrECF1.IdentificaConsumidor, mas não estou obtendo resultado. 

tenho a seguinte rotina:

 

Abre_cupom;

Vende_Item

 

Identifica_Consumidor(Cpf, Nome, Endereco);

 

Inicia_FechamentoCupom();

Efetua_FormasPagamento...

Termina_FechamentoCupom..

 

O QUE Pode estar errado?

 

[Régys Silveira]

Você não falou qual é o problema que ocorre, só disse que não obtêm o resultado, não disse qual e o que esperava.

 

O IdentificaConsumidor vai imprimir no rodapé do cupom os dados do consumidor somente isso.

Se a necessidade é imprimir na abertura para que a geração de arquivos fique correto, você deve usá-lo antes de abrir o cupom.

[hintz]

o que eu preciso é gerar os dados do cliente para a nota fiscal gaucha e utilizando o comando acima, quando leio os dados da impressora, não puxa o cpf e nome do cliente.

[Régys Silveira]

Para gerar corretamente o cliente deve ser identificado antes da abertura do cupom fiscal, assim ele já abre o cupom com os dados do cliente e gera o arquivo correto.

Se identificar depois, algumas poucas impressoras suportam, se não me engano somente as Daruma e para os modelos mais novos, o restante só gera correto se identificar antes da abertura.

[hintz]

eu liguei para a sweda e eles me falaram que o modelo st120 suporta este comando. e ja vi mercado informar o CPF antes de encerrar o ECF, a não ser que não esteja gerando o cpf no arquivo da NFG...

[Régys Silveira]

Não existe código implementado hoje que permite identificar o cliente após a abertura.

 

Já que o pessoal da SWEDA diz que a impressora aceita, poderia verificar com o eles então qual o comando para identificar corretamente após a abertura e onde está a documentação? Assim podemos alterar para permitir isso se é que a impressora permite mesmo.

[hintz]

pelo que o suporte da sweda me passou é o seguinte comando:

 

function ECF_IdentificaConsumidor(nomei: string;

   endi: string;

   cpfi: string): Integer;

StdCall; External 'CONVECF.DLL';

[Régys Silveira]

Esse é o comando na DLL, precisamos do comando direto, se conseguir faço a alteração e subo.

[hintz]

Já pedi e eles ficaram de me mandar.. 

Fiz o teste, direto com a DLL deles e funciona.

[Régys Silveira]

Blza, você testou com a dll após a abertura do cupom? Se sim e o arquivo saiu correto então a impressora aceita, agora só precisamos saber o comando para passar a ela e implementar.

[hintz]

Acesse o link abaixo:

 

http://www.sweda.com.br/v2011/br/suporte_connect.asp

 

clique no botão:

Connect/C - Windows
Biblioteca compatível com as DLLs de Alto Nível do Mercado. Sua utilização economiza tempo e

linhas de programação.

 

vai baixar um arquivo zipado.

descompacte.

vai criar uma pasta e dentro dela tem uma pasta chamada: Manual

de acordo com o suporte la dentro tem tudo o que precisa.

 

fiz o teste com a DLL deles e funcionou OK.

 

fico agora na dependencia desta alteração, pois mudei o meu sistema para utilizar o componente ACBR e esta parte, a pesar de ter a função, não funciona.

fico no aguardo...

[Régys Silveira]

Com eu disse antes, o ACBr não trabalha com a DLL, é preciso o comando direto, sem ele não podemos fazer nada.

[hintz]

eu sei, mas nas instruções que mandei acima, na pasta manual, é ter estes comandos que vc. precisa.

[Régys Silveira]

Verifiquei aqui é neste material tem somente comandos da DLL, não tem comandos de comunicação direta.

[hintz]

Falei de novo com o suporte da sweda e me passaram o seguinte link:

 

http://www.sweda.com.br/v2011/br/suporte_downloads.asp

 

Na categoria do equipamento selecione: Impressoras Termicas Ficais

no modelo do equipamento selecione: IF ST120

no tipo de arquivos selecione: Manuais

tem dois link's que podem ser utilizados:

1. Manual de Programação - ESC (Completo)
2. Manual de Programação - STX

nestes dois link's tem os comandos diretos...

t+

[Juliomar Marchetti]

Depende hintz

é como o régys falou se informar lá no final

ele não vai saber desses dados na ecf

já se informar na abertura do cupom dai sim vai conseguir ler para a nota gaúcha

 

não sei se entendeu?

[EMBarbosa]

Página 34, item 12 do manual STX.PDF, grifo meu:

12-REGISTRAR: NOME, C.P.F. E ENDEREÇO DO CONSUMIDOR

 

Função:

Armazenar na memória de trabalho os dados do consumidor para de identificação em Cupom Fiscal ou Comprovante de Operação Não-Fiscal

 

Requisito(s):

Precedendo a abertura ou durante a emissão do documento

 

Essa é nova (pra mim, é claro).

[Juliomar Marchetti]

Tem razão Elton

fui ler agora e vi , não sabia disso também! é nova(tb)

[hintz]

Desculpe pela falha...

 

Estou desenvolvendo a rotina de nota fiscal gaucha no meu sistema.

Estou utilizando uma impressora Sweda St120

fiz o seguinte teste no programa EcfTeste

Abre_Cupom

Vende_Item

Identifica_Consumidor

Sub-Total

Efetua_Pgto

Fecha_Cupom.

Blz. identificou o consumidor no rodape do ECF.

Coloquei a mesma rotina no meu sistema.

..... simplesmente não imprimiu a identificação do cliente....

o que eu poderia estar fazendo errado, porque a principio segui todos os passos do programa EcfTeste.

[Juliomar Marchetti]

Agora gostaria de saber se chegou a olhar dentro das classes Sweda e SwedaSTX e conferir se tem o comando

conforme o manual que você postou acima?

[hintz]

Não. Mas o que estou achando estranho é que no ECFTeste funciona corretamente. Mas no meu programa NÃO. já revisei a rotina varias vezes e não consigo achar nada diferente.

no EcfTeste :

ACBrECF1.AbreCupom( CPF, NOME, ENDERECO );

no meu sistema:

frmEcf.ACBrECF1.AbreCupom(Cnpj, Nome, Ende);

 

no EcfTeste :

                             ACBrECF1.VendeItem( edCodigo.Text, edDescricao.Text,

                               edICMS.Text, StrToFloatDef( edQtd.Text, 0 ),

                               StrToFloatDef( edPrecoUnita.Text,0 ),

                               StrToFloatDef( edDesconto.Text,0 ), edUN.Text,

                               Desc );

 

no meu sistema:

         frmEcf.ACBrECF1.VendeItem(Codigo, Descricao,

         Aliquota, StF(Quantidade),

         StF(ValorUnitario),

         StF(Desconto), UnidadeMedida,

         Str_Tipo_de_Desconto);

 

no EcfTeste :  

     ACBrECF1.IdentificaConsumidor( CPF, NOME, ENDERECO );

no meu Sistema:

    frmEcf.ACBrECF1.IdentificaConsumidor(Cpf, Nome, Endereco);

 

no EcfTeste:

    ACBrECF1.SubtotalizaCupom( StrToFloat(Desc), Obs );

no meu Sistema :

    frmEcf.ACBrECF1.SubtotalizaCupom(cVdes * -1, '');

 

no EcfTeste :

                                     ACBrECF1.EfetuaPagamento( edCod.Text, StrToFloat( edValor.Text),

                                     edObs.Text ,cbVinc.Checked );

no meu Sistema :

                                     frmEcf.ACBrECF1.EfetuaPagamento(Fpg.Indice, StrToFloat(Valor1), Msg, Vinc );

 

no EcfTeste :  

     ACBrECF1.InfoRodapeCupom.MD5 := '12345678901234567890123456789012';

     ACBrECF1.InfoRodapeCupom.Dav := '0000000001';

     ACBrECF1.InfoRodapeCupom.DavOs := '0000000002';

     ACBrECF1.InfoRodapeCupom.PreVenda := '0000000003';

     ACBrECF1.InfoRodapeCupom.CupomMania := cbxUF.Text = 'RJ';

     ACBrECF1.InfoRodapeCupom.MinasLegal := cbxUF.Text = 'MG';

     ACBrECF1.InfoRodapeCupom.ParaibaLegal := cbxUF.Text = 'PB';

     ACBrECF1.InfoRodapeCupom.NotaLegalDF.Imprimir := cbxUF.Text = 'DF';

 

     if ACBrECF1.InfoRodapeCupom.NotaLegalDF.Imprimir then

     begin

       ACBrECF1.InfoRodapeCupom.NotaLegalDF.ProgramaDeCredito := True;

       ACBrECF1.InfoRodapeCupom.NotaLegalDF.ValorICMS := 123456.99;

       ACBrECF1.InfoRodapeCupom.NotaLegalDF.ValorISS  := 123456.88;

     end;

 

     Obs := StringReplace(Obs,'|',#10,[rfReplaceAll,rfIgnoreCase]) ;

     ACBrECF1.FechaCupom( Obs, StrToIntDef(IndiceBMP, 0) );

no meu sistema :    

   frmEcf.ACBrECF1.InfoRodapeCupom.CupomMania := false;

   frmEcf.ACBrECF1.InfoRodapeCupom.MinasLegal := false;

   frmEcf.ACBrECF1.InfoRodapeCupom.ParaibaLegal := false;

   frmEcf.ACBrECF1.InfoRodapeCupom.NotaLegalDF.Imprimir := false;

 

   Msg := StringReplace(Msg, '|', #10, [rfReplaceAll, rfIgnoreCase]);

 

   frmEcf.ACBrECF1.FechaCupom(Msg);

[Juliomar Marchetti]

Tente não enviar ali no meio o comando

no EcfTeste :  

     ACBrECF1.IdentificaConsumidor( CPF, NOME, ENDERECO );

[Daniel Simoes]

Lendo o Post notei que o protocolo SwedaSTX realmente suporta o envio de informações do Consumidor no rodapé...

 

Apliquei modificações nos fontes do SVN que devem permitir essa funcionalidade... favor atualizar e testar...

[Dionatan Santos]

Pessoal.....

 

Estou com uma duvida referente a ECF Daruma FS-600... Estava fazendo os teste e apos abrir o cupom eu identificava o cliente (ja com o cupom aberto e alguns itens), dentre tanto eu usava o comando  ACBrECF1.IdentificaConsumidor ... Bom não recordo a data, mas depois que atualizei o ACBR ele não colocou mais a informação no RODAPE do Cupom... Antes saia normalmente..

 

Anexo o Log para verificação...

 

Att

 

Dionatan

acbrlog.txt

[Juliomar Marchetti]

Bom então você removeu pois seu log não mostra local algum que a IdentificaConsumidor seja chamada!

somente IdentificaOperador(1)!