OUTROARQ SCCRCLI 
OUTROARQ SF_VEND 
OUTROARQ VB_COBRA 
VARIAVEL LSTTP = 58 
VARIAVEL Z_CODIGO = RECC() 
VARIAVEL Z_VND = 0 
VARIAVEL Z_cob = 0 
 
T10,10,16,60,Parametros 
T2,2,Codigo Ordem de Servico:,5,z_codigo,99999 
 
COMANDO ANTES DBGOTO (Z_CODIGO) 
COMANDO ANTES Z_OBS1  = alltrim(Memoline(CR_OBS,130,1)) 
COMANDO ANTES Z_OBS2  = alltrim(Memoline(CR_OBS,130,2)) 
COMANDO ANTES Z_OBS3  = alltrim(Memoline(CR_OBS,130,3)) 
COMANDO ANTES Z_OBS4  = alltrim(Memoline(CR_OBS,130,4)) 
COMANDO ANTES Z_OBS5  = alltrim(Memoline(CR_OBS,130,5)) 
COMANDO ANTES Z_OBS6  = alltrim(Memoline(CR_OBS,130,6)) 
COMANDO ANTES Z_OBS7  = alltrim(Memoline(CR_OBS,130,7)) 
COMANDO ANTES Z_OBS8  = alltrim(Memoline(CR_OBS,130,8)) 
COMANDO ANTES Z_OBS9  = alltrim(Memoline(CR_OBS,130,9)) 
COMANDO ANTES Z_OBS10 = alltrim(Memoline(CR_OBS,130,10)) 
COMANDO ANTES Z_OBS11 = alltrim(Memoline(CR_OBS,130,11)) 
 
COMANDO ANTES Z_SOL1 = alltrim(Memoline(SOLUCAO,130,1)) 
COMANDO ANTES Z_SOL2 = alltrim(Memoline(SOLUCAO,130,2)) 
COMANDO ANTES Z_SOL3 = alltrim(Memoline(SOLUCAO,130,3)) 
COMANDO ANTES Z_SOL4 = alltrim(Memoline(SOLUCAO,130,4)) 
COMANDO ANTES Z_SOL5 = alltrim(Memoline(SOLUCAO,130,5)) 
COMANDO ANTES Z_SOL6 = alltrim(Memoline(SOLUCAO,130,6)) 
COMANDO ANTES Z_SOL7 = alltrim(Memoline(SOLUCAO,130,7)) 
COMANDO ANTES Z_SOL8 = alltrim(Memoline(SOLUCAO,130,8)) 
 
COMANDO ANTES z_VND = FVENDEDOR 
COMANDO ANTES z_cobra = FVENDRETOR 
COMANDO ANTES SF_VEND->(DbGoto( Z_VND )) 
COMANDO ANTES vb_cobra->(DbGoto( Z_cob )) 
COMANDO ANTES Z_data = data 
COMANDO ANTES Z_hora = hora 
COMANDO ANTES Z_dt_previst = dt_previst 
COMANDO ANTES Z_hr_previst = hr_previst 
COMANDO ANTES Z_sf_vend = sf_vend->nome 
COMANDO ANTES Z_vb_cobra = vb_cobra->nome 
COMANDO ANTES Z_Cr_fantasi = SCCRCLI->Cr_fantasi
 
REPITA ENQUANTO Z_CODIGO=RECNO() 
 
COMANDO DURANTE SCCRCLI->( DBGOTO( HC_RETDI->CR_COD_CLI )) 
COMANDO DURANTE SF_VEND->( DBGOTO( HC_RETDI->FVENDEDOR )) 
COMANDO DURANTE VB_COBRA->( DBGOTO( HC_RETDI->FVENDRETOR )) 
 
Variavel znil = Setprc(0,0) 
C [CHR(18)+CHR(27)+CHR(14)][CHR(27)+CHR(14)][CHR(27)+CHR(69)] VCIGA SERVICOS DE INFORMATICA [CHR(27)+CHR(64)]     
C [CHR(15)]ORDEM DE SERVICO NUMERO: [CHR(27)+CHR(69)][STRZERO(Z_CODIGO,5)][CHR(27)+CHR(64)][CHR(15)],    Impresso: [date()], Solicitado: [Z_data] [CHR(27)+CHR(64)]
C [REPL("-",79)] 
C Cliente.: [CHR(27)+CHR(69)][CR_COD_CLI][CHR(27)+CHR(64)] - [CHR(27)+CHR(69)][cr_nome] [CHR(27)+CHR(64)]- [SCCRCLI->CR_CIDADE @s15] - [SCCRCLI->CR_UF] 
C Fantasia: [CHR(27)+CHR(69)][SCCRCLI->Cr_fantasi][CHR(27)+CHR(64)] , Cnpj.: [SCCRCLI->Cr_cgc]
C Endereco: [sccrcli->cr_rua @s25] [SCCRCLI->CR_CEP] Fone: [SCCRCLI->cr_fone] 
C PontoRef: [SCCRCLI->Cr_pontore] - [SCCRCLI->Cr_contato] 
C Atendente.......: [z_vnd 99] - [sf_vend->nome @s20]   Tecnico......: [z_cob 99] - [vb_cobra->nome] 
C Data & Hora Solicitacao: [Z_data] [Z_hora]    Data Prevista: [Z_dt_previst] [Z_hr_previst] [CHR(27)+CHR(64)]
COMANDO ANTES Z_cr_nome = cr_nome 
COMANDO ANTES Z_CR_COD_CLI = CR_COD_CLI 
ULTPAG ---------------***   Observacoes feitas pelo Cliente  ***--------------- 
ULTPAG [CHR(15)][CHR(27)+CHR(69)][Z_OBS1] 
ULTPAG [Z_OBS2] 
ULTPAG [Z_OBS3] 
ULTPAG [Z_OBS4] 
ULTPAG [Z_OBS5] 
ULTPAG [Z_OBS6] 
ULTPAG [Z_OBS7] 
ULTPAG [Z_OBS8] 
ULTPAG [Z_OBS9] 
ULTPAG [Z_OBS10] 
ULTPAG [Z_OBS11][CHR(27)+CHR(64)] 
ULTPAG ---------------***   Solucao efetuada pelo Tecnico.   ***--------------- [CHR(15)][CHR(27)+CHR(69)]
ULTPAG [Z_SOL1] 
ULTPAG [Z_SOL2] 
ULTPAG [Z_SOL3] 
ULTPAG [Z_SOL4] [CHR(27)+CHR(64)]
ULTPAG [REPL("-",79)] 
ULTPAG     _________________________    ____________________     ____________________ 
ULTPAG     Cli.: [SCCRCLI->CR_NOME @s20]   Tec.: [vb_cobra->nome @s15]    Atend.: [sf_vend->nome @s22] 
ULTPAG 
ULTPAG [REPL("-_",39)] 
ULTPAG 
ULTPAG [CHR(18)+CHR(27)+CHR(14)][CHR(27)+CHR(14)][CHR(27)+CHR(69)] VCIGA SERVICOS DE INFORMATICA [CHR(27)+CHR(64)] 
ULTPAG [CHR(15)]ORDEM DE SERVICO NUMERO: [CHR(27)+CHR(69)][STRZERO(Z_CODIGO,5)][CHR(27)+CHR(64)],    Impresso: [date()], Solicitado: [Z_data] 
ULTPAG [REPL("-",79)] 
ULTPAG Cliente.: [CHR(27)+CHR(69)][Z_CR_COD_CLI][CHR(27)+CHR(64)] - [CHR(27)+CHR(69)][z_cr_nome] [CHR(27)+CHR(64)]- [SCCRCLI->CR_CIDADE @s15] - [SCCRCLI->CR_UF] 
ULTPAG Fantasia: [Z_Cr_fantasi] , Cnpj.: [SCCRCLI->Cr_cgc]
ULTPAG Endereco: [sccrcli->cr_rua @s25] [SCCRCLI->CR_CEP] Fone: [SCCRCLI->cr_fone] 
ULTPAG PontoRef: [SCCRCLI->Cr_pontore] - [SCCRCLI->Cr_contato] 
ULTPAG Atendente.......: [z_vnd 99] - [sf_vend->nome @s20]   Tecnico......: [z_cob 99] - [vb_cobra->nome] 
ULTPAG Data Solicitacao: [Z_data]                    Data Prevista: [Z_dt_previst] 
ULTPAG Data & Hora Solicitacao: [Z_data] [Z_hora]    Data Prevista: [Z_dt_previst] [Z_hr_previst] 
ULTPAG ---------------***   Observacoes feitas pelo Cliente  ***--------------- 
ULTPAG [CHR(15)][CHR(27)+CHR(69)][Z_OBS1] 
ULTPAG [Z_OBS2] 
ULTPAG [Z_OBS3] 
ULTPAG [Z_OBS4] 
ULTPAG [Z_OBS5] 
ULTPAG [Z_OBS6] 
ULTPAG [Z_OBS7] 
ULTPAG [Z_OBS8] 
ULTPAG [Z_OBS9] 
ULTPAG [Z_OBS10] 
ULTPAG [Z_OBS11][CHR(27)+CHR(64)] 
ULTPAG ---------------***   Solucao efetuada pelo Tecnico.   ***--------------- 
ULTPAG [CHR(15)][CHR(27)+CHR(69)][Z_SOL1] 
ULTPAG [Z_SOL2] 
ULTPAG [Z_SOL3] 
ULTPAG [Z_SOL4] [CHR(27)+CHR(64)] 
ULTPAG[REPL("-",79)] 
ULTPAG Hora Chegada.: ____:____     Hora Saida: ____:____        Km moto.:___________ 
ULTPAG  
ULTPAG     _________________________    ____________________     ____________________ 
ULTPAG     Cli.: [SCCRCLI->CR_NOME @s20]   Tec.: [vb_cobra->nome @s15]    Atend.: [sf_vend->nome @s22] 
ULTPAG 
ULTPAG[REPL("-",79)] 
ULTPAG [CHR(15)][CHR(27)+CHR(69)] Observacoes do Cliente para melhor atendimento: [CHR(27)+CHR(64)]
 
