Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Tamires Daglio Ferreira

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (tp.mauricio.frison)

Gravado em

Chave

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

EICDI554 - Recebimento de Importação

Ponto de Entrada

Descrição:

Disponibilizado o ponto de entrada EICDI554 com diversos parâmetros que possibilitam alterações na rotina de Recebimento de Importação.

Localização:

Atualizações/ Desembaraço/ Recebimento de Importação

Eventos:

Recebimento de Importação

Programa Fonte:

EICDI554.PRW

Retorno:

Nome

Tipo

Descrição

Obrigatório

 "Tem_Outra_Quebra"

Caracter

Possibilita customizar novas opções de quebra para a Nota Fiscal.

 

'GRAVACAO_SD1'CaracterPossibilita customizar o array aItem para gravação da SD1 

 

Exemplo
Exemplos:

User Function EICDI554()

Local nValQuebra:= 150 //Quantidade de itens desejada por nota fiscal (alterar conforme necessidade)

If PARAMIXB =="Tem_Outra_Quebra"

lQuebra

   lQuebra_espe:=.T.

If

       If nTipoNF ==

2

2 
            If Work1->WKNOTAOR <> cNumComp .OR. Work1->WKSERIEOR <> cSerieComp .Or. nItem >= nValQuebra

cNumComp

               cNumComp := WORK1->WKNOTAOR

cSerieComp

               cSerieComp := WORK1->WKSERIEOR

lQuebrou

               lQuebrou_NF:= .T.
            EndIf

Else
IF

           Else
               IF nItem >= nValQuebra .OR.;

cForn

                   cForn # Work1->WKFORN .OR. (EICLoja() .And. cLoja # Work1->WKLOJA) .OR.;


nItem

 
                   nItem == 0 .OR. If(lQuebraCFO, cCFO # Work1->WK_CFO,.F.) .OR.; 
                    (lIntDraw .AND. Work1->WKACMODAL # cACModal) .OR.;
                    (lQuebraOperacao .AND. cOperacao # Work1->WK_OPERACA) .OR.;
                    nAdicao > 99
                    nAdicao := 0

lQuebrou

                   lQuebrou_NF:= .T.

ENDIF

             ENDIF
          EndIf
ENDIF


If PARAMIXB =="GRAVACAO_SD1"

AADD

     AADD(aItem,{"D1_CC"   ,SC7->C7_CC     ,".T."})

ENDIF


If PARAMIXB == "GRAVACAO_SF1"  

      AADD(aCab,{"F1_PLIQUI" ,10 ,Nil})

EndIf

Return Nil


IF PARAMIXB =="GRAVA_SF1_EI1"

     EI1→(RecLock("EI1",.T.))

     EI1->EI1_II := 0
     EI1->EI1_IPI := 0

     EI1→(MsUnlock())

     SF1→(RecLock("SF1",.T.))

     SF1→F1_DESPICM := 0

    SF1→(MsUnlock())

ENDIF


If PARAMIXB == "INICIA_VARIAVEIS"
   lEstornaBtn := .F.
   MsgInfo("Passou pelo ponto de Entrada: EICDI554 - Identificador: INICIA_VARIAVEIS","Aviso")
EndIf


Eventos:

Recebimento de Importação

Programa Fonte:

EICDI554.PRW

Retorno:

Nome

Tipo

Descrição

Obrigatório

 "Tem_Outra_Quebra"

Caracter

Possibilita customizar novas opções de quebra para a Nota Fiscal.


"GRAVACAO_SD1"CaracterPossibilita customizar o array aItem para gravação da SD1
"GRAVA_SF1_EI1"CaracterPossibilita customizar os dados das tabelas SF1 e EI1.
"INICIA_VARIAVEIS"CaracterPossibilita customizar entre várias variáveis, a variável lEstornaBtn que controla a exibição do campo de Estorno da Nota Fiscal.
"GRAVACAO_SF1"CaracterPossibilita manipular o array aCab que é o array que contém as informações da capa da nota fiscal de entrada.