Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
//Exemplo utilização Repom #Include 'PROTHEUS.CH' User Function OMSA040AUT() Local aCab := {} Local aItens := {} Private lMSErroAuto := .F. Aadd(aCab,{"DA4_COD" ,"900001" ,NIL}) //-- Código do motorista Aadd(aCab,{"DA4_NOME" ,"JOSE DA SILVA",NIL}) //-- Nome do motorista Aadd(aCab,{"DA4_TIPMOT","1" ,NIL}) //-- Tipo do motorista (1 = Próprio) Aadd(aCab,{"DA4_NREDUZ","JSILVA" ,NIL}) //-- Nome reduzido Aadd(aCab,{"DA4_CGC" ,"49657627460" ,NIL}) //-- CPF //--Itens da ocorrencia: aAdd(aItens,{{"DEL_ITEM" ,StrZero(1,Len(DEL->DEL_ITEM)),NIL},; {"DEL_CODOPE","01" ,NIL},; {"DEL_IDOPE" ,"600805182" ,NIL},; {"DEL_STATUS","1" ,NIL}}) MsAguarde({|| MsExecAuto({|x,y,z| OMSA040(x,y,z)},aCab,3,aItens)},"AGUARDE,PROCESSANDO...") If lMSErroAuto MostraErro() Else Alert("Concluído com Sucesso !!") EndIf Return //Exemplo de utilização Pamcard #Include 'PROTHEUS.CH' User Function OMSA040AUT() Local aCab := {} Local aItens := {} Private lMSErroAuto := .F. Aadd(aCab,{"DA4_COD" ,"900002" ,NIL}) //-- Código do motorista Aadd(aCab,{"DA4_NOME" ,"JOAO DA SILVA",NIL}) //-- Nome do motorista Aadd(aCab,{"DA4_TIPMOT","3" ,NIL}) //-- Tipo do motorista (1 = Próprio) Aadd(aCab,{"DA4_FORNEC" ,"PAM005" ,NIL}) //-- Fornecedor Aadd(aCab,{"DA4_LOJA" ,"01" ,NIL}) //-- Loja Fornecedor Aadd(aCab,{"DA4_NREDUZ","JSILVA" ,NIL}) //-- Nome reduzido Aadd(aCab,{"DA4_END" ,"RUA JAFFET" ,NIL}) //-- End Aadd(aCab,{"DA4_BAIRRO" ,"CENTRO" ,NIL}) //-- Bairro Aadd(aCab,{"DA4_MUN" ,"SAO PAULO" ,NIL}) //-- MUN Aadd(aCab,{"DA4_EST" ,"SP" ,NIL}) //-- ESTADO Aadd(aCab,{"DA4_CEP" ,"04615004" ,NIL}) //-- CEP Aadd(aCab,{"DA4_CGC" ,"00356718905" ,NIL}) //-- CPF Aadd(aCab,{"DA4_TEL" ,"23131260" ,NIL}) //-- TEL Aadd(aCab,{"DA4_DATNAS" ,CToD("11/03/2000"),NIL}) //-- DT Nasc Aadd(aCab,{"DA4_ESTCIV" ,"S" ,NIL}) //-- DDD Aadd(aCab,{"DA4_RG" ,"25881515" ,NIL}) //-- RG Aadd(aCab,{"DA4_RGORG" ,"SSP" ,NIL}) //-- RG Origem Aadd(aCab,{"DA4_RGEST" ,"SP" ,NIL}) //-- RG ESTADO Aadd(aCab,{"DA4_RGDT" ,CToD("08/03/2008"),NIL}) //-- DT RG Aadd(aCab,{"DA4_DDD" ,"011" ,NIL}) //-- DDD Aadd(aCab,{"DA4_CODMUN" ,"50308" ,NIL}) //-- Cod Mun //--Itens da ocorrencia: aAdd(aItens,{{"DEL_ITEM" ,StrZero(1,Len(DEL->DEL_ITEM)),NIL},; {"DEL_CODOPE","02" ,NIL},; {"DEL_IDOPE" ,"4417819800001812" ,NIL},; {"DEL_STATUS","1" ,NIL},; {"DEL_TIPOID","024" ,NIL},; {"DEL_CODBAN","237" ,NIL}}) MsAguarde({|| MsExecAuto({|x,y,z| OMSA040(x,y,z)},aCab,3,aItens)},"AGUARDE,PROCESSANDO...") If lMSErroAuto MostraErro() Else Alert("Concluído com Sucesso !!") EndIf Return |
05. TABELAS UTILIZADAS
- DA4 - Motoristas
- DEL - Operadoras de Frotas por Motorista
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas