Histórico da Página
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
USER FUNCTION FIN050INCPA()
LOCAL aArray := {}
PRIVATE lMsErroAuto := .F.
aArray := { { "E2_PREFIXO", "PAG" , NIL },;
{ "E2_NUM" , "0001" , NIL },;
{ "E2_TIPO" , "PA" , 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 },;
{ "AUTBANCO" , "FIN" , NIL },;
{ "AUTAGENCIA" , "00015" , NIL },;
{ "AUTCONTA" , "0000000001" , NIL },;
{ "AUTMOED" , "1" , NIL },;
{ "AUTCHEQUE" , "124569" , NIL }}
MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3) // 3 - Inclusão
If lMsErroAuto
MostraErro()
Else
Alert("Título incluído com sucesso!")
Endif
Return |
| 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
|
Conteúdos Relacionados
- Financeiro.
- Parâmetros/Configurações.
- Naturezas
- Fornecedor.
- Centro de custo.
- Item contábil.
- Classe de valor.
- Plano de contas.
- Lançamento padrão.
- Calendário contábil.
- Moeda X Calendário.
- Cliente.
- Vendedor.
- Banco.
- Condição de pagamento.
- Contas a Receber.
- PIS - COFINS - CSLL - Novas Regras de Retenção - Lei 13.137/2015.
- Adequação da Lei 13.137 – Novas regras para PIS, COFINS e CSLL.
- Reestruturação da tabela SE5 na família de tabelas FKx.
- Base de Conhecimento - Contas a Pagar.
- Comunidade P@ Controladoria - Fluig.
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas