 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Tchock
Colaborador
Registrado: Domingo, 18 de Julho de 2004
Mensagens: 1242
|
 Enviada: Sex Jun 18, 2010 10:00 pm Assunto: Redução Z |
 |
|
Pessoal estou com um problema aqui quando gero a redução Z no meu sistema
esta dando um erro 00/00/00 data invalida, no meu pc eu mudei para 00/00/0000 ai da o erro acima...
esse erro é na data de movimentação
eu estou usando essa função para gerar as datas
| Código: | Readln(ArqTXT,linha);
iPosTwoDot := Pos(':',linha);
iTam := Length(linha);
if iCont = 3 then // Extrai a Data de Emissão
begin
sDtMovimento := Copy(linha,iPosTwoDot+1,(iTam - iPosTwoDot));
sDtMovimento := RetiraArgumento(' ',sDtMovimento);
sDataMovtoReducaoZ:=sDtMovimento;
end |
ele m da esse arquivo de retorno
Tipo do relatório.........: 60
Subtipo...................: M
Data de emissão...........: 00/00/00 aqui tem q sair 00/00/0000
Número de série...........: EMULADOR
Número do equipamento.....: 0001
Modelo do documento fiscal: 2D
COO inicial...............: 000004
COO final.................: 000004
Contador de reduções......: 0000
Reinicio de Operação......: 0001
Venda Bruta...............: 0,00
Totalizador geral.........: 0,00 |
|
| Voltar ao Topo |
|
 |
douglasprogramador
Novato
Registrado: Segunda-Feira, 28 de Mai de 2007
Mensagens: 24
|
| Enviada: Seg Set 20, 2010 9:55 am Assunto: Re: Redução Z |
|
|
| Tchock escreveu: | Pessoal estou com um problema aqui quando gero a redução Z no meu sistema
esta dando um erro 00/00/00 data invalida, no meu pc eu mudei para 00/00/0000 ai da o erro acima...
esse erro é na data de movimentação
eu estou usando essa função para gerar as datas
| Código: | Readln(ArqTXT,linha);
iPosTwoDot := Pos(':',linha);
iTam := Length(linha);
if iCont = 3 then // Extrai a Data de Emissão
begin
sDtMovimento := Copy(linha,iPosTwoDot+1,(iTam - iPosTwoDot));
sDtMovimento := RetiraArgumento(' ',sDtMovimento);
sDataMovtoReducaoZ:=sDtMovimento;
end |
ele m da esse arquivo de retorno
Tipo do relatório.........: 60
Subtipo...................: M
Data de emissão...........: 00/00/00 aqui tem q sair 00/00/0000
Número de série...........: EMULADOR
Número do equipamento.....: 0001
Modelo do documento fiscal: 2D
COO inicial...............: 000004
COO final.................: 000004
Contador de reduções......: 0000
Reinicio de Operação......: 0001
Venda Bruta...............: 0,00
Totalizador geral.........: 0,00 |
Olá, Tchock !
Vc esta tentando gerar a redução Z é isso ? E se for de qual impressora vc quer ?
Da impressora Bematech é assim:
cData := '08/01/2000';
cHora := '18:00:00';
iRetorno := Bematech_FI_ReducaoZ( pchar( cData ), pchar( cHora ) );
 |
|
| Voltar ao Topo |
|
|
vitorguima.rs
Novato
Registrado: Terça-Feira, 22 de Mai de 2007
Mensagens: 98
|
| Enviada: Dom Dez 19, 2010 7:15 pm Assunto: Re: Redução Z |
|
|
| Tchock escreveu: | Pessoal estou com um problema aqui quando gero a redução Z no meu sistema
esta dando um erro 00/00/00 data invalida, no meu pc eu mudei para 00/00/0000 ai da o erro acima...
esse erro é na data de movimentação
eu estou usando essa função para gerar as datas
| Código: | Readln(ArqTXT,linha);
iPosTwoDot := Pos(':',linha);
iTam := Length(linha);
if iCont = 3 then // Extrai a Data de Emissão
begin
sDtMovimento := Copy(linha,iPosTwoDot+1,(iTam - iPosTwoDot));
sDtMovimento := RetiraArgumento(' ',sDtMovimento);
sDataMovtoReducaoZ:=sDtMovimento;
end |
ele m da esse arquivo de retorno
Tipo do relatório.........: 60
Subtipo...................: M
Data de emissão...........: 00/00/00 aqui tem q sair 00/00/0000
Número de série...........: EMULADOR
Número do equipamento.....: 0001
Modelo do documento fiscal: 2D
COO inicial...............: 000004
COO final.................: 000004
Contador de reduções......: 0000
Reinicio de Operação......: 0001
Venda Bruta...............: 0,00
Totalizador geral.........: 0,00 |
Também pode ser assim se for Bematech...
Procedure TmenuPrin.acECF_ReducaoZExecute(sender:TObject);
var
intRetorno:integer;
strData,strHora:string;
begin
intRetorno:=Bematech_FI_VerficaImpressoraLigada;
if IntRetorno = 1 then
begin
strData:=Datetostr(date);
strHora:=TimeTostr(time);
intRetorno:=Bematech_FI_ReducaoZ(Pchar(strData),Pchar(strHora));
AnalizaRetornoECF(intRetorno);
end
else
Application.MessageBox('Impressora Fiscal Desligada!',Mensagem',MB_OK);
end; |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
