Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: MATA125 - Contrato de Parceria
Descrição:
Programa Fonte: MATA125.PRX Sintaxe: MATA125 - Contrato de Parceria ( [ ExpA1 ] [ ExpA2 ] [ ExpN1 ] ) --> Nil Retorno:
Exemplos User Function TMATA125() Local aCab := {}Local aItens := {} Local cDoc := "" Local nX := 0Private lMsErroAuto := .F. ConOut(Repl("-",80))ConOut(PadC("Rotina Automática para o Contrato de Parceria",80))PREPARE ENVIRONMENT EMPRESA "09" FILIAL "01" MODULO "COM" //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Inclusao |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Verifica numero da CP |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ dbSelectArea("SC3")dbSetOrder(1)MsSeek(xFilial("SC3")+"zzzzzz",.T.)dbSkip(-1)cDoc := SC3->C3_NUMIf Empty(cDoc) cDoc := StrZero(1,Len(SC3->C3_NUM))Else cDoc := Soma1(cDoc)EndIfaadd(aCab,{"C3_FILIAL", xFilial("SC3"), NIL})aadd(aCab,{"C3_NUM",cDoc,NIL})aadd(aCab,{"C3_EMISSAO",dDataBase})aadd(aCab,{"C3_FORNECE" ,"1 " ,NIL})aadd(aCab,{"C3_LOJA","01",NIL})aadd(aCab,{"C3_COND" ,"001" ,NIL})aadd(aCab,{"C3_MOEDA","1",NIL}) For nX := 1 To 2 aLinha := {} aadd(aLinha,{"C3_FILIAL",xFilial("SC3"),Nil}) aadd(aLinha,{"C3_ITEM",StrZero(nX,len(SC3->C3_ITEM)),Nil}) aadd(aLinha,{"C3_PRODUTO" ,"5",Nil}) aadd(aLinha,{"C3_QUANT",2,Nil}) aadd(aLinha,{"C3_PRECO",135,Nil}) aadd(aLinha,{"C3_TOTAL",270,Nil}) aadd(aLinha,{"C3_DATPRI",dDataBase,Nil}) aadd(aLinha,{"C3_DATPRF",dDataBase,Nil}) aadd(aItens,aLinha)Next nX MSExecAuto( {|x,y,z| mata125(x,y,z)},aCab,aItens,3) If lMsErroAuto MostraErro()Else MsgAlert("Incluido com sucesso! "+cDoc)Endif //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Alteração |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ aCab := {} aItens := {}aadd(aCab,{"C3_FILIAL", xFilial("SC3"), NIL})aadd(aCab,{"C3_NUM",cDoc,NIL})aadd(aCab,{"C3_EMISSAO",dDataBase})aadd(aCab,{"C3_FORNECE" ,"1 " ,NIL})aadd(aCab,{"C3_LOJA","01",NIL})aadd(aCab,{"C3_COND" ,"001" ,NIL})aadd(aCab,{"C3_MOEDA","1",NIL}) For nX := 1 To 2 aLinha := {} aadd(aLinha,{"C3_FILIAL",xFilial("SC3"),Nil}) aadd(aLinha,{"LINPOS","C3_ITEM",StrZero(nX,len(SC3->C3_ITEM)),Nil}) aadd(aLinha,{"AUTDELETA","N",Nil}) aadd(aLinha,{"C3_PRODUTO" ,"5",Nil}) aadd(aLinha,{"C3_QUANT",3,Nil}) aadd(aLinha,{"C3_PRECO",130,Nil}) aadd(aLinha,{"C3_TOTAL",390,Nil}) aadd(aLinha,{"C3_DATPRI",dDataBase,Nil}) aadd(aLinha,{"C3_DATPRF",dDataBase,Nil}) aadd(aItens,aLinha)Next nX MSExecAuto( {|x,y,z| mata125(x,y,z)},aCab,aItens,4) If lMsErroAuto MostraErro()Else MsgAlert("Alterado com sucesso! "+cDoc)Endif //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Exclusão |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙMSExecAuto( {|x,y,z| mata125(x,y,z)},aCab,aItens,5) If lMsErroAuto MostraErro()Else MsgAlert("Excluído com sucesso! "+cDoc)Endif MsgAlert("Fim da Rotina Automática! "+Time()) RESET ENVIRONMENT Return Parâmetros:
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas