Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Eli James de Souza Aguiar

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Eli James de Souza Aguiar

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Produto:

Easy Export Control

Versões:

Versão 12

Ocorrência:

Esta rotina possibilita a inclusão/alteração/exclusão de Nota Fiscal de saída, itens de nota fiscal de saída, e para cada item, notas fiscais de remessa.
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)

Exemplo:


O exemplo a seguir mostra como inserir nota fiscal de saída utilizando MSExecAuto. Para uma nota fiscal de saída, é possível adicionar vários itens para a nota. Para cada item da nota pode ser inserido um ou mais notas de remessa:

 

  • Incluir

Local aEEM := {}
Local aEES := {}, aItens := {}
Local aEYY := {}, aNFRem := {}
Private lMsErroAuto := .F.



RpcSetEnv("99", "01")

// Capa da Nota
aAdd(aEEM, {"EEM_FILIAL" , "01" , Nil})
aAdd(aEEM, {"EEM_PREEMB" , " " , Nil})
aAdd(aEEM, {"EEM_TIPOCA" , "N" , Nil})
aAdd(aEEM, {"EEM_NRNF" , "000014 ", Nil})
aAdd(aEEM, {"EEM_SERIE" , "1 " , Nil})
aAdd(aEEM, {"EEM_DTNF" , cToD("10/12/2017") , Nil})
aAdd(aEEM, {"EEM_VLNF" , 9010 , Nil})
aAdd(aEEM, {"EEM_VLMERC" , 10010 , Nil})
aAdd(aEEM, {"EEM_TIPONF" , "1" , Nil})
aAdd(aEEM, {"EEM_TXTB" , 8.14 , Nil})

// Itens da Nota
aAdd(aEES, {"EES_FILIAL" , "01" , Nil})
aAdd(aEES, {"EES_PREEMB" , "EMB-E-2 " , Nil})
aAdd(aEES, {"EES_NRNF" , "000014 ", Nil})
aAdd(aEES, {"EES_SERIE" , "1 " , Nil})
aAdd(aEES, {"EES_PEDIDO" , "PED-E-2 " , Nil})
aAdd(aEES, {"EES_SEQUEN" , " 1" , Nil})
aAdd(aEES, {"EES_FATSEQ" , "01 " , Nil})
aAdd(aItens, aEES)

// Notas de Remessa
aAdd(aEYY, {"EYY_PEDIDO" , "PED-E-2 " , Nil})
aAdd(aEYY, {"EYY_SEQUEN" , " 1" , Nil})
aAdd(aEYY, {"EYY_NFSAI" , "000014 " , Nil})
aAdd(aEYY, {"EYY_SERSAI" , "1" , Nil})
aAdd(aEYY, {"EYY_NFENT" , "22" , Nil})
aAdd(aEYY, {"EYY_SERENT" , "1" , Nil})
aAdd(aEYY, {"EYY_FORN" , "AGENTE" , Nil})
aAdd(aEYY, {"EYY_FOLOJA" , "." , Nil})
aAdd(aEYY, {"EYY_D1ITEM" , "2" , Nil})
aAdd(aEYY, {"EYY_FASE" , "Q" , Nil})

aAdd(aEYY, {"EYY_CHVNFE" , "TESTE1" , Nil})
aAdd(aEYY, {"EYY_QUANT" , 2 , Nil})
aAdd(aEYY, {"EYY_D1PROD" , "CARRO" , Nil})
aAdd(aNFRem, aEYY)

MSExecAuto({|a,b,c,d| EECNF400(a,b,c,d)}, aEEM, aItens, 3, aNFRem)

If lMsErroAuto
MostraErro()
Else
MsgInfo("Finalizado com sucesso")
EndIf

  • Alterar

Para alterar a nota fiscal de entrada, apenas troque o valor do terceiro parâmetro para 4.
MSExecAuto({|a,b,c,d| EECNF400(a,b,c,d)}, aEEM, aItens, 4, aNFRem)
Para adicionar um item de nota fiscal ou um item de remessa em uma nota fiscal de saída existente, use a opção 4.


  • Excluir

    Para excluir a nota fiscal de entrada, apenas troque o valor do terceiro parâmetro para 5.

    MSExecAuto({|a,b,c,d| EECNF400(a,b,c,d)}, aEEM, aItens, 5, aNFRem).

    Neste caso, o array dos items e o array das notas de remessa podem estar vazias.


Local aRotAuto


  • Exemplo:

    Local aEEM := {}
    Local aEES := {}, aItens := {}
    Local aEYY := {}, aNFRem := {}
    Local aEYY2 := {}

aAdd(aRotAuto, {"YD_FILIAL", xFilial("SYD")

  • Local zzz := RpcSetEnv("99", "01")
    Local cNf := Avkey("000027", "EEM_NRNF")
    Local cPedido := AvKey("PED-E-2", "EES_PEDIDO")
    Local cSequen1 := Avkey(" 1", "EES_SEQUEN")
    Local cSequen2 := Avkey(" 2", "EES_SEQUEN")



    Private lMsErroAuto := .F.

    // Capa da Nota

    aAdd(aEEM, {"EEM_FILIAL", "01" , Nil})
    aAdd(aEEM, {"EEM_PREEMB", AvKey("", "EEM_PREEMB") , Nil})
    aAdd(aEEM, {"EEM_TIPOCA", "N" , Nil})
    aAdd(aEEM, {"EEM_NRNF" , cNF, Nil})
    aAdd(aEEM, {"EEM_SERIE" , "1 " , Nil})
    aAdd(
aRotAuto
  • aEEM, {"
YD_TEC", "11222222"
  • EEM_DTNF" , cToD("10/12/2017") , Nil})
    aAdd(aEEM, {"EEM_VLNF" , 1010 , Nil})
    aAdd(
aRotAuto
  • aEEM, {"
YD_EX_NCM
  • EEM_VLMERC", 1011 , Nil})
    aAdd(aEEM, {"EEM_TIPONF" , "
3
  • 1" , Nil})
Private lMsErroAuto := .F.
  • aAdd(aEEM, {"EEM_TXTB" , 1021 , Nil})

    MSExecAuto({|
x,y| EICA130(x, y)}, aRotAuto, 5
  • a,b,c,d| EECNF400(a,b,c,d)}, aEEM, aItens, 5, aNFRem)

    If lMsErroAuto
Mostraerro(
  • MostraErro()
    Else
    MsgInfo("Finalizado com sucesso")
    EndIf