Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
USER FUNCTION FIN050VA() LOCAL aArray := {} LOCAL nOpc := 3 // 3-Inclusão, 4 Alteração // Dados do valor acessório. LOCAL aVAAut := {} LOCAL cValAce1 := "000001" // Código do Va LOCAL nValAce1 := 200 // Valor do Va LOCAL cValAce2 := "000012" LOCAL nValAce2 := 4 PRIVATE lMsErroAuto := .F. 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 } } // Array com valor acessório aAdd(aVAAut, {cValAce1, nValAce1}) aAdd(aVAAut, {cValAce2, nValAce2}) MsExecAuto( { |a,b,c,d,e,f,g,h,i,j,k,l| FINA050(a, b, c, d, e, f, g, h, i, j, k, l)}, aArray,, nOpc,,,,,,,,, aVAAut) If lMsErroAuto MostraErro() Else If nOpc == 3 Alert("Título incluido com sucesso!") Else Alert("Título alterado com sucesso!") EndIf Endif Return |
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 |
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