Linha Microsiga Protheus

Page tree

Versions Compared

Old Version 1

changes.mady.by.user Camila Nogueira

Saved on

compared with

New Version Current

changes.mady.by.user Miguel Prado Gontijo

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

EICDI154 - Recebimento de Importação

 

 

 

 

 

 

 

Ponto de Entrada

Descrição:

Disponibilizado o ponto de entrada EICDI154 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:

EICDI154.PRW

Retorno:

Nome

Tipo

Descrição

Obrigatório

 "Tem_Outra_Quebra"

Caracter

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

 

 

Exemplo:

Exemplos:


User Function EICDI154()


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

If


IF PARAMIXB =="Tem_Outra_Quebra"
lQuebra_espe:=.T.
ELSEIF PARAMIXB == 'Quebrou_NF'

If

IF nTipoNF == 2 .Or. nTipoNF ==

7

7 

If

IF Work1->WKNOTAOR <> cNumComp .OR. Work1->WKSERIEOR <> cSerieComp .Or. nItem >= nValQuebra
cNumComp := WORK1->WKNOTAOR
cSerieComp := WORK1->WKSERIEOR
lQuebrou_NF:= .T.

EndIf

ENDIF

Else

ELSE
IF nItem >= nValQuebra .OR.; 
cForn # Work1->WKFORN .OR. (EICLoja() .And. cForLoj # Work1->WKLOJA) .OR.; 
nItem == 0 .OR. If(lQuebraCFO, cCFO # Work1->WK_CFO,.F.) .OR.; 
(lIntDraw .AND. Work1->WKACMODAL # cACModal) .OR.;
(lQuebraOperacao .AND. cOperacao # Work1->WK_OPERACA)
lQuebrou_NF:= .T.
ENDIF

EndIf

ENDIF
ENDIF


Return Nil

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

 "Tem_Outra_Quebra"

Caracter

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


"GRAVACAO_SF1"CaracterChamada após gerar o cabeçalho da Nosta Fiscal.
Variáveis:
NomeTipoEscopoPode AlterarDescrição
cChaveSF1CaracterPrivateSimVariável com a chave da nota do momento do recebimento da importação.
Programa Fonte:EICDI154.PRW


Exemplo: