Urano pos-logger

[lucimauro]

Pessoal sera que alguem poderia me ajudar, estou tentando desenvolver para urano e nao consigo nem sair do zero,ja baixei os exemplos do site deles, mas quando mando o comando ela trava e pronto.
Estou usando o fiscnet.sys /1 no config.nt mas nada, nem o acbrmonitor detecta ela.
Sera que alguem poderia me dar alguma dica ai?


Desde ja agradeço.

[rochinha]

Amiguinho

Esta Urano possui emulador, vou baixa-lo, mas não terei tempo de instalar e testar os fontes do Gerenciador de ECFs.

Faça-o e poste aqui suas modificações e adaptações para que eu possa corrigir alguma falha do mesmo e deixa-lo a disposição dos amigos.

O uso do ACBr ajuda em muito a programação mas muitas vezes queremos acessar as ECFs com seus proprios utilitários.

[lucimauro]

Gente eu ate ja consegui imprimir leiturax,cancelamento,reducao, mas o cupom fiscal nao funciona,estou usando o acbrmonitor mas ele dar invalida a forma de pagamento abaixo segue o codigo :

static procedure ura_cupom
ur_AbreCupom()
dbgotop()
while .not. eof()
vd_codi:=codi
tp_nome:=nome
vd_codi:=alltrim(vd_codi)
vd_nome:=tp_nome
vd_tipoquant:=[F]
vd_quant:=quant
vd_decimais:=[3]
vd_venda:=venda
vd_tipodesc:=[$]
vd_valordesc:=0
vd_icms:=PRODUTO->icms
ICMS->( dbseek( vd_icms ) )
if left(vd_icms,1)==[T]
vd_tribut:=ICMS->icms
else
if vd_icms==[F ]
vd_tribut:=[FF]
elseif vd_icms==
vd_tribut:=[II]
elseif vd_icms==[N ]
vd_tribut:=[NN]
endif
endif
ur_VendeItem( vd_codi, vd_nome, vd_tribut, vd_tipoquant, vd_quant, vd_decimais, vd_venda, vd_tipodesc, vd_valordesc )
dbskip()
enddo
tot_des :=ro_unde(vd_total * vd_desc / 100,2)
ur_iniciafechamento([D],"Desconto",str(tot_des,12,2) )

ur_formapgamento("DINHEIRO",000000001,00")
essa linha acima ele nao aceita,
*
ur_FechaCupom( "TESTE DO SISTMEA" )

[rochinha]

Amiguinho

Se voce tivesse pelo menos dado uma olhada no link que te passei a respeito das funções de ECF disponiveis para URANO teria matado de cara o seu erro:

Código: Selecionar todos

...
function URANO_ECF_EfetuaFormaPagamento( cForma, cValor )
   cCmd :=        AlinhaParametro( "01" , 2,"N") // "01"
   cCmd := cCmd + AlinhaParametro(cForma,17,"C") // "DINHEIRO"    
   cCmd := cCmd + AlinhaParametro(strtran(cValor,",",""),11,"N") // "00000012500"
   cCmd := cCmd + AlinhaParametro("0"   , 1,"C") // "0"
   URANO_ECF_Comando( "04", cCmd )
   MyWait(2)
   retorno := URANO_ECF_Retorno()
   return retorno
...

Na minha função não coloco nenhuma virgula ou ponto e o tamanho da string formatada do valor é 11 e não 9, salvo que seu comando falta fechar aspas o que não deve ser a causa do problema.

Verifique.

[lucimauro]

Rochinha lhe agradeço pelo codigos que me enviou, no caso acima eu sabia a sintaxe correta e os tamanhos dos campos, so que de tanto testar mandeu esse exemplo que nao era igual tamanhos corretos dos parametros, agora o problema mesmo esta no tamanho do indice das formas de pagamento, desse jeio que voce colocou acima nao funciona neste modelo de impressaora que falo, nesse caso ela so aceita:
0-dinehiro
1-cheque

diferente de :
00-dinheiro
01 cheque
nao funciona.

[rochinha]

Amiguinho

Me informe o modelo completo desta impressora para que eu possa modificar o codigo que disponibilizei, a partir de suas correções.

Obrigado.

[lucimauro]

Rochinha é esse nome dela Urano pos-logger, no acbrmonitor eu uso o modelo fiscnet para comunicacao.
ok.
Qualquer coisa estou a diposicao.