VARIAVEL zBlkCGC = _createblock('xcgc:=strtran(xcgc,"."),xcgc:=strtran(xcgc,"/"),xcgc:=strtran(xcgc,"-"),xcgc:=strtran(xcgc," "),padl(xcgc,14,"0")' , {'xcgc'} ) 
VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2) 
VARIAVEL LST_TP = 999 
 
COMANDO ANTES SetPrc( 0,0) 
COMANDO ANTES znil = Set(24,"") 

COMANDO ANTES zFileGenexis = Fcreate(s_arq_prn) 
COMANDO ANTES znil = FWRITE(zFileGenexis, "H"+pad("PCLIENTE",8)+dtos(date())+chr(13)+chr(10) )
COMANDO ANTES znil = FWRITE(zFileGenexis, "I"+ padr("08401713000179",18," ")+chr(13)+chr(10) )
 
COMANDO ANTES zstr = "V1" + padr("08401713000179",18," ")
COMANDO ANTES zstr = zstr + PAD("GENIEZER PEREIRA E CIA LTDA",30)
COMANDO ANTES zstr = zstr + PAD("AV ESPERANCA, No 1165",30)
COMANDO ANTES zstr = zstr + PAD("MANAIRA",15)
COMANDO ANTES zstr = zstr + PAD("JOAO PESSOA",20)
COMANDO ANTES zstr = zstr + PAD("PB",2)
COMANDO ANTES zstr = zstr + PAD(" 58038281",9)
COMANDO ANTES zstr = zstr + "I" 
 
COMANDO ANTES FWRITE(zFileGenexis,zstr +chr(13)+chr(10) )
COMANDO ANTES FWRITE(zFileGenexis,"T"  ) 
COMANDO ANTES FCLOSE(zFileGenexis) 
COMANDO ANTES DBGOBOTTOM() 
