Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Conf. Entrada (OFIA060) via Coletor e permite validação dos dados após a conferência.

Localização:

SIGAACD - Automação Coleta de Dados \ Conf. Entrada (OFIA060)

Eventos:

If lOkConf // Conferencia OK - Liberar automaticamente para dar Entrada na NF

DbSelectArea("SD1")

DbSetOrder(1) // D1_FILIAL+D1_DOC+D1_SERIE+D1_FORNECE+D1_LOJA+D1_COD+D1_ITEM

If DbSeek( SF1->F1_FILIAL + SF1->F1_DOC + SF1->F1_SERIE + SF1->F1_FORNECE + SF1->F1_LOJA)

while SD1->D1_FILIAL + SD1->D1_DOC + SD1->D1_SERIE + SD1->D1_FORNECE + SD1->D1_LOJA == SF1->F1_FILIAL + SF1->F1_DOC + SF1->F1_SERIE + SF1->F1_FORNECE + SF1->F1_LOJA

DbSelectArea("SD1")

RecLock("SD1",.F.)

SD1->D1_CONBAR := "1" // Conferencia OK

MsUnlock()

DBSkip()

EndDo

EndIf

VTAlert(STR0011+CHR(13)+CHR(10)+;

SF1->F1_DOC+" "+SF1->F1_SERIE+CHR(13)+CHR(10)+CHR(13)+CHR(10)+;

STR0012,STR0002) // NF de Entrada / Conferencia Finalizada. / Atencao

Else

If !Empty(cEmailDiv) // Enviar E-mail

SA2->( DbSetOrder(1) )

SA2->( DbSeek( xFilial("SA2") + SF1->F1_FORNECE + SF1->F1_LOJA ) )

OM3900021_EMAIL( cEmailDiv , ( SF1->F1_DOC+"-"+SF1->F1_SERIE ) , ( SF1->F1_FORNECE+"-"+SF1->F1_LOJA+" "+SA2->A2_NOME ) , "2" )

VTAlert(STR0011+CHR(13)+CHR(10)+;

SF1->F1_DOC+" "+SF1->F1_SERIE+CHR(13)+CHR(10)+CHR(13)+CHR(10)+;

STR0012+" "+STR0020,STR0002) // NF de Entrada / Conferencia Finalizada. / Aguardando Aprovacao das divergencias. / Atencao

EndIf

EndIf

If ExistBlock("OA060DOK")

ExecBlock("OA060DOK",.f.,.f.,{ lOkConf , SF1->(RecNo()) }) // PE apos Conferencia ( com ou sem divergencia )

EndIf

Programa Fonte:

OFIA060.PRW

Função:

OA0600041_FinalizaConferencia()

Parâmetros:
NomeTipoDescrição
lOkConfLógico

Informa se a conferência está ok ? (.t. / .f.)

nRecSF1Numérico

RecNo do registro da tabela de Nota Fiscal de Entrada (SF1)

Retorno:

N/A

Exemplo:

Include totvs.ch

//////////////////////////////////////////////////////////////////////////////////////////////////

// //

// OA060DOK - Ponto de Entrada na Conferencia de Itens de Entrada via Coletor de Dados. //

// É executado apos a conferencia //

// //

// lOkConf - Conferencia OK ? -> .t. / .f. //

// nRecSF1 - RecNo do registro da tabela de Nota Fiscal de Entrada (SF1) //

// //

//////////////////////////////////////////////////////////////////////////////////////////////////

User Function OA060DOK()

Local lOkConf := ParamIxb[1] // Conferencia OK ? -> .t. / .f.

Local nRecSF1 := ParamIxb[2] // RecNo do registro da tabela de Nota Fiscal de Entrada (SF1)


VTAlert("Ponto de entrada OA060DOK executado com sucesso!")


Return