VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2)
VARIAVEL Z_MOVE = ""
VARIAVEL Z_FAT  = ""
*
VARIAVEL Z_NUMPED = m_fnumped
VARIAVEL Z_CLI = 0
VARIAVEL Z_VND = 0
VARIAVEL Z_CABDUPS = 0
VARIAVEL Z_CABPRDS = 0
VARIAVEL LST_TP = 999

COMANDO ANTES DbGoBottom()
COMANDO DEPOIS Z_MOVE = "MOVE"+Z_AAMM
COMANDO DEPOIS Z_FAT  = "FAT"+Z_AAMM

ARQUIVO (Z_FAT) Z_FAT+".p"  FNUMPED
OUTROARQ (z_MOVE) z_MOVE+".p" fnumped
OUTROARQ SCCRCLI
OUTROARQ SF_VEND
OUTROARQ SE_PROD SEIP_C PCOD
OUTROARQ SE_GPRE SE_GPRE GRUPO
OUTROARQ SCCRDUP SCRID_ND CR_NUM_PED
OUTROARQ VB_ASS VB_ASSM STR(CR_COD_CLI,5)+STR(MATRICULA,7)

VARIAVEL Z_TIPOVND = ""
VARIAVEL Z_PRAZO = ""
COMANDO ANTES DbSeek(z_numped)
COMANDO ANTES z_CLI = FCLI
COMANDO ANTES z_VND = FVENDEDOR
COMANDO ANTES Z_FDATAEMI = FDATAEMI
COMANDO ANTES Z_FVAL = FVAL
COMANDO ANTES Z_MATRICULA = FCODFUNC
COMANDO ANTES Z_TIPOVND = "VdaMista"
COMANDO ANTES Z_TIPOVND = IF(FTIPOVEN="1","DINHEIRO",z_tipovnd)
COMANDO ANTES Z_TIPOVND = IF(FTIPOVEN="2","CHEQUE",Z_TIPOVND)
COMANDO ANTES Z_TIPOVND = IF(FTIPOVEN="3","CARTAO",Z_tIPOVND)
COMANDO ANTES Z_TIPOVND = IF(FTIPOVEN="4","DUPLICATA",Z_TIPOVND)
COMANDO ANTES Z_PRAZO = IF(DAY(FBOMPARA)>0,DTOC(FBOMPARA)+" ("+str(FBOMPARA-FDATAEMI,3)+"dd) ","")

COMANDO ANTES SCCRCLI->(DbGoto( Z_CLI ))
COMANDO ANTES SF_VEND->(DbGoto( Z_VND ))
COMANDO ANTES VB_ASS->(DBSEEK( STR(z_cli,5)+STR(z_MATRICULA,7) ))
COMANDO ANTES DbGoBottom()

D
D########################                             A D E S I V O   E X P R E S S                           #########################
D########################                                  Comunicacao Visual                                 #########################
D########################                           O   R   C   A   M   E   N   T   O                         #########################
D[REPL("-",135)]
DPEDIDO de N§..: [z_numped 999999], em [Z_FDATAEMI] as [FHORA]                    Vendedor.: [sf_vend->nome]
D[REPL("-",135)]
DCliente.: [z_cli 9999] [sccrcli->cr_nome @s50]    Fone: [sccrcli->cr_fone]  Fax: [SCCRCLI->CR_FAX]
D End....: [sccrcli->cr_rua]-[sccrcli->cr_bairro]-[sccrcli->cr_cidade]-[sccrcli->cr_uf]   Cep:[SCCRCLI->CR_CEP]
D P.Rf...: [sccrcli->cr_pontore]
D IE/RG..: [sccrcli->cr_insc_es]      CNPJ/CPF: [SCCRCLI->CR_CGC]      Contato: [sccrcli->cr_contato]

VARIAVEL Z_PRODS = 0
VARIAVEL Z_UNIDS = 0
VARIAVEL Z_UNIDP = 0
VARIAVEL Z_TVALOR = 0
VARIAVEL Z_TCUST = 0

SUBLIST Z_MOVE
COMANDO ANTES DbSeek(Z_Numped)
REPITA ENQUANTO FNUMPED = Z_NUMPED
COMANDO DURANTE Z_PCOD = PCOD
COMANDO DURANTE SE_PROD->(DBSEEK(Z_PCOD))
COMANDO DURANTE Z_PRODS = Z_PRODS + 1
COMANDO DURANTE Z_UNIDS = Z_UNIDS + MQUANT
COMANDO DURANTE Z_UNIDP = Z_UNIDP + PPECAS
COMANDO DURANTE Z_TVALOR = Z_TVALOR + MVALOR
COMANDO DURANTE Z_PRUNIT = MVALOR/MQUANT
COMANDO DURANTE SE_GPRE->(DbSeek(SE_PROD->PGPRECO))
COMANDO DURANTE Z_MARKUP = if(se_gpre->markup>0, se_gpre->markup, 42.85)
COMANDO DURANTE Z_MVALCUST = MVALOR / (1+Z_MARKUP/100)
COMANDO DURANTE Z_TCUST  = Z_TCUST + Z_MVALCUST
COMANDO DURANTE Z_CAIXAS = MQUANT / IF(SE_PROD->PITENS>0,SE_PROD->PITENS,1)
COMANDO DURANTE Z_CABPRDS = Z_CABPRDS + 1

FILTRO MFGES="S".and.fnumped=z_numped.and.mcodforc=z_cli

FILTROIMP Z_CABPRDS = 1
D[repl("=",135)]
FILTROIMP Z_CABPRDS = 1
D  Cod   Quant  Descricao                            Largura X Altura      Qtd.Metros         Preco UnitM2               Preco Total
FILTROIMP Z_CABPRDS = 1
D[Repl("-",135)]

D [PCOD 9999]    [ppecas]  [SE_PROD->PDESC]      [plargura] X[paltura]        [MQUANT @e 9,999.999]            [z_prunit @E 99,999.99]                [mvalor @E 999,999.99]
*9999 XXXXXxxxxxXXXXXxxxxxXXXX 999 (9999) 9999.99 9999.99 (9999.99) 99.99.99
FIM SUBLIST

SUBLIST SCCRDUP
COMANDO ANTES DbSeek(STRZERO(Z_numped,6))
COMANDO DURANTE Z_CABDUPS = Z_CABDUPS+1
REPITA ENQUANTO left(cr_num_ped,6) = strzero(z_numped,6)
FILTRO cr_cod_Cli = Z_cli

FILTROIMP Z_CABDUPS=1
D[REPL("-",135)]
FILTROIMP Z_CABDUPS=1
D Parcela       Vencto             Valor  Td    BomPara
FILTROIMP Z_CABDUPS=1
D[REPL(".",135)]

D [cr_num_ped]   [cr_dt_venc]    [cr_valor @E 999,999,999.99]  [CR_TIP_DUP]   [cr_dt_doc]
FIM SUBLIST

ULTPAG[REPL("-",135)]
ULTPAG Quant de Prods em Descricao...: [z_prods 9999]                                                                  Subtotal..: [z_tvalor @E 9,999,999,999.99]
ULTPAG Quant de Prods em Unidades....: [z_unidp 9999]
ULTPAG Quant Total de Metros (M2)....: [z_unids @E 9999.999]                                                              Desconto..: [z_tvalor-z_fval @E 9,999,999,999.99]
ULTPAG
ULTPAG                                                                                T O T A L   D A   V E N D A ...: [Z_FVAL @E 999,999,999,999.99]
ULTPAG
ULTPAG[REPL("-",135)]
ULTPAG Data da Entrega...: [z_fdataemi+3]
COMANDO DURANTE Z_OBS1 = alltrim(Memoline(Fobs,80,1))
COMANDO DURANTE Z_OBS2 = alltrim(Memoline(Fobs,80,2))
COMANDO DURANTE Z_OBS3 = alltrim(Memoline(Fobs,80,3))
COMANDO DURANTE Z_OBS4 = alltrim(Memoline(Fobs,80,4))
COMANDO DURANTE Z_OBS5 = alltrim(Memoline(Fobs,80,5))
COMANDO DURANTE Z_OBS6 = alltrim(Memoline(FObs,80,6))
COMANDO DURANTE Z_OBS7 = alltrim(Memoline(FObs,80,7))
FILTROIMP Z_OBS1<>""
ULTPAG  ***  O b s e r v a c o e s  ***
ULTPAG [Z_OBS1]
FILTROIMP Z_OBS2<>""
ULTPAG [Z_OBS2]
FILTROIMP Z_OBS3<>""
ULTPAG [Z_OBS3]
FILTROIMP Z_OBS4<>""
ULTPAG [Z_OBS4]
FILTROIMP Z_OBS5<>""
ULTPAG [Z_OBS5]
FILTROIMP Z_OBS6<>""
ULTPAG [Z_OBS6]
FILTROIMP Z_OBS7<>""
ULTPAG [Z_OBS7]
ULTPAG[REPL(".",135)]
ULTPAG                               Autorizamos a execucao dos Servicos descritos de acordo com as especificacoes, medidas e custos
ULTPAG                              discriminados no orcamento acima, quais declaramos estarem corretos e sem resalva.
ULTPAG
ULTPAG
ULTPAG                                              Ass. _____________________________________________
ULTPAG                                                   [SCCRCLI->CR_NOME]
ULTPAG[REPL("-",135)]
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG.