Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
USER FUNCTION F050IPMS() Local cPref := "FIN" Local cNum := "210408001" Local cPar := "1" Local cTipo := "NF" Local cNaturez := "FGRV01" Local cFornec := "FGRV04" Local cLoja := "01" Local nValor := 1000 Local aGrvSe2 := {} Local aInfProj := {} Local aInfAFR := {} PRIVATE lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "FIN" TABLES "SE2","SE5","SA2","AFR","AF9","AF8" aAdd(aInfAFR, {"AFR_PROJET", PadR("PMSU000023", TamSX3("AF9_PROJET")[1]), Nil}) aAdd(aInfAFR, {"AFR_TAREFA", "01.02", Nil}) aAdd(aInfAFR, {"AFR_TIPOD", PadR("0004", TamSx3("AFR_TIPOD")[1]), Nil}) aAdd(aInfAFR, {"AFR_VALOR1", nValor, Nil}) aAdd(aInfAFR, {"AFR_REVISA", StrZero(4, TamSX3("AFR_REVISA")[1]), Nil}) aAdd(aInfAFR, {"AFR_PREFIX", cPref, Nil}) aAdd(aInfAFR, {"AFR_NUM", cNum, Nil}) aAdd(aInfAFR, {"AFR_PARCEL", cPar, Nil}) aAdd(aInfAFR, {"AFR_TIPO", cTipo, Nil}) aAdd(aInfAFR, {"AFR_FORNEC", cFornec, Nil}) aAdd(aInfAFR, {"AFR_LOJA", cLoja, Nil}) aAdd(aInfAFR, {"AFR_DATA", Date(), Nil}) aAdd(aInfAFR, {"AFR_VENREA", Date(), Nil}) aAdd(aInfProj, aInfAFR) aGrvSe2 := { { "E2_PREFIXO" , cPref , NIL },; { "E2_NUM" , cNum , NIL },; { "E2_TIPO" , cTipo , NIL },; { "E2_NATUREZ" , cNaturez , NIL },; { "E2_FORNECE" , cFornec , NIL },; { "E2_LOJA" , cLoja , NIL },; { "E2_EMISSAO" , Date() , NIL },; { "E2_VENCTO" , Date() , NIL },; { "E2_VENCREA" , Date() , NIL },; { "E2_VALOR" , nValor , NIL },; { "E2_PROJPMS" , "2" , NIL },; { "E2_HIST" , "Inclusão de Projeto" , NIL },; {"AUTRATAFR" , aInfProj ,Nil } } MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aGrvSe2,, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão If lMsErroAuto MostraErro() Else Conout("Título incluído com sucesso!") Endif Return |
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch"
USER FUNCTION FIN050INC()
LOCAL aArray := {}
PRIVATE lMsErroAuto := .F.
//Estrutura para demais títulos
aArray := { { "E2_PREFIXO" , "PAG" , NIL },;
{ "E2_NUM" , "0001" , NIL },;
{ "E2_TIPO" , "NF" , NIL },;
{ "E2_NATUREZ" , "001" , NIL },;
{ "E2_FORNECE" , "0001" , NIL },;
{ "E2_EMISSAO" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCTO" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCREA" , CtoD("17/02/2012"), NIL },;
{ "E2_VALOR" , 5000 , NIL },;
{ "E2_DIRF" , "1" , NIL },;
{ "E2_CODRET" , "3208" , NIL }}
SetFunName("FINA050")
MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
If lMsErroAuto
MostraErro()
Else
Alert("Título incluído com sucesso!")
Endif
Return
|
DEMAIS INFORMAÇÕES
Não há.
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas