Linha Microsiga Protheus

Árvore de páginas

Descrição

Ponto de Entrada criado no Totvs Pdv para customizar a consulta de NCC.  

ObservaçãoEsse Ponto de Entrada deve ser compilado na Retaguarda, pois a consulta de NCC é executada por RemoteExecute()
VersõesProtheus 12
Parâmetros

PARAMIXB[1]  código do cliente (caractere)
PARAMIXB[2]  código loja do cliente (caractere)
PARAMIXB[3]  data do sistema (data)        
PARAMIXB[4]  importação de orçamento (lógico)
PARAMIXB[5]  número do orçamento (caractere)

Retorno

Array com dados do NCC

Programa Fonte

STDNCCModel.prw

Exemplo

#Include 'PROTHEUS.CH'

User Function STFNDNCC()

Local cCliente      :=  PARAMIXB[1]   //cliente 
Local cLojaCli      :=  PARAMIXB[2]   //loja do cliente      
Local dDataValid    :=  PARAMIXB[3]   //data do sistema        
Local lImport       :=  PARAMIXB[4]   //importação de orçamento        
Local cNumOrc       :=  PARAMIXB[5]   // numero do orçamento
Local aNCCItens     := {} 
Local cAliasSE1     := "SE1"
Local cFilSE1       := xFilial("SE1")
Local bWhile        := {|| .F. }

DEFAULT dDataValid  := cToD("  /  /  ")         // Data para verificar validade da NCC
DEFAULT lImport   := .F.

DbSelectArea("SE1")
DbSetOrder(8) //E1_FILIAL, E1_CLIENTE, E1_LOJA, E1_STATUS, E1_VENCREA

If DbSeek(cFilSE1 + cCliente + cLojaCli + "A")
  bWhile    := {|| !(cAliasSE1)->(EOF()) .AND. (cAliasSE1)->E1_FILIAL == cFilSE1 ;
                                            .AND. (cAliasSE1)->E1_CLIENTE == cCliente ;
                                            .AND. (cAliasSE1)->E1_LOJA == cLojaCli ;
                                            .AND. (cAliasSE1)->E1_STATUS == "A" }
    While Eval(bWhile)
      if (cAliasSE1)->E1_VENCREA >= dDataValid .AND.  (cAliasSE1)->E1_TIPO == 'NCC' 
        AAdd(aNCCItens, { .T.,;
                          SE1->E1_SALDO,;
                          SE1->E1_NUM,;
                          SE1->E1_EMISSAO,;
                          SE1->(Recno()),;
                          SE1->E1_SALDO,;
                          SuperGetMV("MV_MOEDA1"),;
                          SE1->E1_MOEDA,;
                          SE1->E1_PREFIXO, ;
                          SE1->E1_PARCELA,;
                          SE1->E1_TIPO,;
                          SE1->E1_FILIAL})
      Endif 
      (cAliasSE1)->(DbSkip())
    Loop
  End
EndIf

Return aNCCItens