Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Camila Nogueira

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Tamires Daglio Ferreira

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:

User Function EICDI554()

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

If PARAMIXB =="Tem_Outra_Quebra"
lQuebra_espe:=.T.

If nTipoNF == 2
If Work1->WKNOTAOR <> cNumComp .OR. Work1->WKSERIEOR <> cSerieComp .Or. nItem >= nValQuebra
cNumComp := WORK1->WKNOTAOR
cSerieComp := WORK1->WKSERIEOR
lQuebrou_NF:= .T.
EndIf
Else
IF nItem >= nValQuebra .OR.;
cForn # Work1->WKFORN .OR. (EICLoja() .And. cLoja # 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) .OR.;
nAdicao > 99
nAdicao := 0
lQuebrou_NF:= .T.
ENDIF
EndIf
ENDIF

If PARAMIXB =="GRAVACAO_SD1"

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

ENDIF

Return Nil