Ir para conteúdo
  • Cadastre-se

dev botao

Acbrtefd1.chq


Hetosoft Sistemas
Ver Solução Respondido por Daniel Simoes,
  • Este tópico foi criado há 4243 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

{

Function TACBrTEFD.CHQ( const Valor : Double; const IndiceFPG_ECF : String;

        const DocumentoVinculado : String = ''; const CMC7 : String = '';

        const TipoPessoa : AnsiChar = 'F'; const DocumentoPessoa : String = '';

        const DataCheque : TDateTime = 0; const Banco   : String = '';

        const Agencia    : String = ''; const AgenciaDC : String = '';

        const Conta      : String = ''; const ContaDC   : String = '';

        const Cheque     : String = ''; const ChequeDC  : String = '';

        const Compensacao: String = '' ) : Boolean ;

begin

   Result := fTefClass.CHQ( Valor, IndiceFPG_ECF, DocumentoVinculado, CMC7,

                            TipoPessoa,  DocumentoPessoa, DataCheque,

                            Banco, Agencia, AgenciaDC,

                            Conta, ContaDC, Cheque, ChequeDC, Compensacao);

}

  ACBrTEFD1.CHQ(

  StringToFloatDef(edValorTEF.Text, 0) ,edFPGCheque.Text,

  ACBrECF1.NumCOO, '0',

  'J', '08398100000120',

  StrToDate('20/03/2013'), '399',

  '0820','5',

  '0000145953','7',

  '660497','8');

  MostraSaldoRestante;

 

 

Coloco esses dados , e fala que Dados invalidos,

o que eu devo ta fazendo de errado?

 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

desde do comerco eu fiz com o demo do ACBrTEFD (Atualizado)

 

 

ACBrTEFD1.CHQ(

  StringToFloatDef(edValorTEF.Text, 0) ,edFPGCheque.Text,

  ACBrECF1.NumCOO, '0',

  'J', '08398100000120',

  StrToDate('20/03/2013'), '399',

  '0820','5',

  '0000145953','7',

  '660497','8');

 

os dados estao todos corretos, mais fala DADOS INVALIDOS.

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

o que devo coloca em

const Compensacao: String = ''  :

 

ja deichei em blanco '',

ja coloque 'True' e 'False'

mais continua dando erro

de DADOS INVALIDOS.

 

 

 

  ACBrTEFD1.CHQ(

  1.00 ,'04',

  '004620', '',

  'J', '08398100000120',

  StrToDate('20/03/2013'), '399',

  '0820','5',

  '0000145953','7',

  '660497','8',

  '');

 

E agora coloquei tudo manual e nada.

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

nao conseguir coloca a imagem,

mais a messagem depois que envio o comando

Cara nao conseguir endentifica se o sitef ou acbr ?

 

mais o comando é esse:

 

 

  ACBrTEFD1.CHQ(

  1.00 ,'04',

  '004620', '',

  'J', '08398100000120',

  StrToDate('19/03/2013'), '399',

  '0820','5',

  '145953','7',

  '660497','8',

  '');

  MostraSaldoRestante;

 

 

 

mais limpei o log. e clique em CHQ - onde esta o comando acima

Log acbr:

 

-- 20/03 11:35:42:591 - BloquearMouseTeclado: SIM

-- 20/03 11:35:42:592 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

-- 20/03 11:35:42:609 - ContinuaFuncaoSiTefInterativo, Retornos: STS = -100 ProximoComando = 22 TipoCampo = -1 Buffer =  Tam.Min = 1 Tam.Max = 2

-- 20/03 11:35:42:609 - *** ContinuaFuncaoSiTefInterativo, Finalizando: STS = -100

-- 20/03 11:35:42:610 - BloquearMouseTeclado: NAO

-- 20/03 11:35:43:425 - InfoECF: ineEstadoECF

-- 20/03 11:35:43:452 -     Ret: P

-- 20/03 11:35:43:453 - InfoECF: ineSubTotal

-- 20/03 11:35:43:545 -     Ret: 1

-- 20/03 11:35:43:545 - InfoECF: ineTotalAPagar

-- 20/03 11:35:43:546 -     Ret: 0

-- 20/03 11:35:43:547 - *** IniciaFuncaoSiTefInterativo. Modalidade: 1 Valor: 1,00 Documento: 004620 Data: 20130320 Hora: 113543 Operador:  Restricoes: [15;25]{TipoTratamento=4}

-- 20/03 11:35:43:556 - BloquearMouseTeclado: SIM

-- 20/03 11:35:43:557 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

-- 20/03 11:35:43:583 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 1 TipoCampo = -1 Buffer = Conectando SiTef Tam.Min = 0 Tam.Max = 0

-- 20/03 11:35:43:584 - CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: Conectando SiTef

-- 20/03 11:35:43:587 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

-- 20/03 11:35:43:597 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 13 TipoCampo = -1 Buffer =  Tam.Min = 0 Tam.Max = 0

-- 20/03 11:35:43:598 - CliSiTef DoExibeMsg: Oper: opmRemoverMsgOperador Mensagem:

-- 20/03 11:35:43:609 - CliSiTef DoExibeMsg: Oper: opmRemoverMsgCliente Mensagem:

-- 20/03 11:35:43:610 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

-- 20/03 11:35:43:617 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 1 TipoCampo = -1 Buffer = SiTef Conectado Tam.Min = 0 Tam.Max = 0

-- 20/03 11:35:43:618 - CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: SiTef Conectado

-- 20/03 11:35:43:621 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

-- 20/03 11:35:43:634 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 22 TipoCampo = -1 Buffer = Dados Invalidos Tam.Min = 1 Tam.Max = 2

-- 20/03 11:35:43:634 - CliSiTef DoExibeMsg: Oper: opmOK Mensagem: Dados Invalidos

-- 20/03 11:35:43:635 - BloquearMouseTeclado: NAO

 

 

 

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Pelo LOG dá para perceber que a Mensagem vem do SiTEF

 

-- 20/03 11:35:43:634 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 22 TipoCampo = -1 Buffer = Dados Invalidos Tam.Min = 1 Tam.Max = 2

 

Verifique com a Sw.Express se eles tem alguns valores que possam ser usados nesse teste... Se não conseguir... informe dados de um Cheque Bancário real

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Fundadores
  • Solution

Humm.. lembrei de algo...

 

Experimente copiar o arquivo em anexo "cheques.ini" para a mesma pasta onde está o CliSiTef.ini  (e após isso reinicie a aplicação)

Cheque.ini

Cheque.ini

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...