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: |
|
Exemplo:
User Function EICDI154()
Local nValQuebra:= 150 //Quantidade de itens desejada por nota fiscal (alterar conforme necessidade)
If PARAMIXB =="Tem_Outra_Quebra"
lQuebra_espe:=.T.
ELSEIF PARAMIXB == 'Quebrou_NF'
If nTipoNF == 2 .Or. nTipoNF == 7
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. 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
Return Nil
