ALIAS VB_MESAS
OUTROARQ SF_BAR
VARIAVEL zNil = VB_MESAS->( DbGoto( z_recno ) )
VARIAVEL zFatPRecno = VB_MESAS->fatprecno
VARIAVEL zNil = sf_bar->( DbGoto( zFatPRecno ) )
VARIAVEL zfNumDav = sf_bar->fNumped
VARIAVEL zFnumCoo = if( val(sf_bar->fNumCoo)=0, '______', sf_bar->fNumCoo )
VARIAVEL zEmpNome = 'EMPRESA EMITENTE'
VARIAVEL zEmpCNPJ = '99.999.999/9999-99'
variavel zCOO_do_RelGer = ''
VARIAVEL zfCli    = sf_bar->fCli
VARIAVEL zNomeDav = xGetEnv("DAV_NOME")
VARIAVEL zNomeDav = if(empty(zNomeDav), "PEDIDO", zNomeDav)
VARIAVEL zNomeDav = if(SF_BAR->fg_conta="S", "CONTA DE CLIENTE", zNomeDav)

VARIAVEL zLL = 0
VARIAVEL LST_TP   = 58
VARIAVEL zFgOpenCli   = (Select('sccrcli')=0)
VARIAVEL zFgOpenProd  = (select('se_prod')=0)
VARIAVEL zFgOpenDavPc = (select('SF_BARpc')=0)
VARIAVEL zFgOpenDavmv = (select('SF_BARmv')=0)
VARIAVEL zSele        = Select()
VARIAVEL zNil = if(zFgOpenCli,     Abra('0NOIDX', r_siga, 'sccrcli','sccrcli'), '')
VARIAVEL zNil = if(zFgOpenProd,    Abra('0NOIDX', r_siga, se_prod,'se_prod',seip_c,'pcod'), '')
VARIAVEL zNil = if(zFgOpenDavPc,   Abra('0NOIDX', r_siga, 'SF_BARpc', 'SF_BARpc', 'SF_BARpc', 'fnumped'), '')
VARIAVEL zNil = if(zFgOpenDavmv,   Abra('0NOIDX', r_siga, 'SF_BARmv', 'SF_BARmv', 'SF_BARmv', 'fnumped'), '')
VARIAVEL zNil = DbSelectArea(ZSele)
variavel zNil = sccrcli->(DbGoto( zfCli ))

VARIAVEL Z_PRODS = 0
VARIAVEL Z_UNIDS = 0
VARIAVEL Z_TVALOR = 0

VARIAVEL zLineLen = oEcf:s_df_LenLinhasObs

REPITA ENQUANTO z_recno = recno()

variavel vLines={}
comando antes zNil= RelGerCmd( 'RELGER_ABRE')
comando antes zNil= RelGerCmd( 'RELGER_USA',padc('DOCUMENTO AUXILIAR DE VENDA - '+zNomeDav, zLineLen) )
comando antes zNil= RelGerCmd( 'RELGER_USA',padc('NAO E DOCUMENTO FISCAL - NAO E VALIDO COMO RECIBO', zLineLen))
comando antes zNil= RelGerCmd( 'RELGER_USA',padc('E COMO GARANTIA DE MERCADORIA', zLineLen) )
comando antes zNil= RelGerCmd( 'RELGER_USA',padc('E NAO COMPROVA PAGAMENTO', zLineLen) )

comando antes zNil= oECF:GetCOO(@zCOO_do_RelGer)

comando antes zNil= RelGerCmd( 'RELGER_USA',Repl("=",zLineLen) )
comando antes zNil= RelGerCmd( 'RELGER_USA','Numero do Documento.: '+StrZero(zfNumDav,10))
comando antes zNil= RelGerCmd( 'RELGER_USA','Num Doc Fiscal (COO): '+zFnumCoo)
comando antes zNil= RelGerCmd( 'RELGER_USA',Repl("=",zLineLen) )

SUBLIST SF_BARmv
   COMANDO ANTES zLL=0
   COMANDO ANTES zNil = Set(11,'off')
   COMANDO ANTES SF_BARmv->(DbSeek( zFnumDav ))
   REPITA ENQUANTO FNUMPED = zfNumDav
   // FILTRO fg_sit<>'A'
   COMANDO DURANTE zPcod   = COD
   COMANDO DURANTE SE_PROD->(DBSEEK(zPcod))
   COMANDO DURANTE Z_PRODS    = Z_PRODS  + if(!deleted(), 1,         0)
   COMANDO DURANTE Z_UNIDS    = Z_UNIDS  + if(!deleted(), QUANT,     0)
   COMANDO DURANTE Z_TVALOR   = Z_TVALOR + if(!deleted(), PrTotal,   0)
   COMANDO DURANTE zLL = zLL + 1
   COMANDO DURANTE zSitLancamento = if( Deleted(), '* Cancelado *', if(fg_sit='A','* Alterado *',if(fg_sit='I','* Adicionado *','')))
   COMANDO DURANTE zDesc = AllTrim(SE_PROD->PDESC)+" "+ zSitLancamento

   COMANDO DURANTE zNil= if(zll=1, RelGerCmd( 'RELGER_USA',Repl("=",zLineLen) ) , '')
   COMANDO DURANTE zNil= if(zll=1, RelGerCmd( 'RELGER_USA','Cod Descricao' ) , '')
   COMANDO DURANTE zNil= if(zll=1, RelGerCmd( 'RELGER_USA','   Qtd  VlUnit VlTotal' ) , '')
   COMANDO DURANTE zNil= if(zll=1, RelGerCmd( 'RELGER_USA',Repl("-",zLineLen) ) , '')

   COMANDO DURANTE zNil= RelGerCmd( 'RELGER_USA',Str(zPcod,6)+' '+zdesc ) 
   COMANDO DURANTE zNil= RelGerCmd( 'RELGER_USA',Str(Quant,4)+' '+Str(PrUnit,6,2)+' '+Str(PrTotal,8,2) ) 

   COMANDO DEPOIS zNil= Set(11,'on')
FIM SUBLIST

COMANDO DEPOIS zStringTotal = 'TOTAL '+if(left(zNomeDav,1)$'OoC','DA ','DO ')+zNomeDav+' : '+Transform(z_tvalor,'@e 999,999.99')

COMANDO DEPOIS zNil= RelGerCmd( 'RELGER_USA',Repl("=",zLineLen) )
COMANDO DEPOIS zNil= RelGerCmd( 'RELGER_USA', zStringTotal )
COMANDO DEPOIS zNil= RelGerCmd( 'RELGER_USA',Repl("=",zLineLen) )
COMANDO DEPOIS zNil= RelGerCmd( 'RELGER_USA','' )
COMANDO DEPOIS zNil= RelGerCmd( 'RELGER_USA','AGUARDE A EMISSAO DO CUPOM FISCAL' )
COMANDO DEPOIS zNil= RelGerCmd( 'RELGER_USA','' )
COMANDO DEPOIS zNil= RelGerCmd( 'RELGER_USA','E vedada a autenticacao deste documento' )

comando DEPOIS zNil= RelGerCmd( 'RELGER_FECHA')

COMANDO DEPOIS zNil= if(zFgOpenCli, sccrcli->(DbCloseArea()), '')
COMANDO DEPOIS zNil= if(zFgOpenProd, se_prod->(DbCloseArea()), '')
COMANDO DEPOIS zNil= if(zFgOpenDavPc, SF_BARpc->(DbCloseArea()), '')
COMANDO DEPOIS zNil= if(zFgOpenDavmv, SF_BARmv->(DbCloseArea()), '')

comando depois sf_bar->(DbGoto(Z_recno))