Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

04. INFORMACIÓN ADICIONAL

DescripciónActualizaciones
Punto de entrada:

F998NRDCOB

Nombre del programa fuente:COLLECTOR.SERVICE.TLPP
Parámetros recibidos:
NombreTipoDescripción
PARAMIXB[1]CCliente seleccionado.
PARAMIXB[2]CTienda del cliente seleccionado.
Respuesta:
NombreTipoDescripciónObligatorio
cCobradorCRetorna el Cobrador que sera colocado en el box del cobradorSi

Ejemplo:

#Include 'Protheus.ch'

User Function F998NRDCOB()
Local cCobrador := ""
Local cClient := Paramixb[1]
Local cLoja := Paramixb[2]

dbselectarea("SAR")
("SAR")->(dbGoTop())

    While ("SAR")->(!eof())
        If  xFilial("SAR")== SAR->AR_FILIAL .AND. cClient == SAR->AR_CODCLI .AND. cLoja == SAR->AR_LOJCLI
             cCobrador :=AR_CODCOBR
        EndIf
        ("SAR")->(dbskip())
    EndDo

("SAR")->(dbCloseArea())

Return cCobrador


Card documentos
InformacaoLa presente solución aplica para versión 12.1.33 o superior, siempre y cuando se tengan las rutinas actualizadas a la fecha de la expedición del issue.
Titulo¡IMPORTANTE!

...