Code: Select all
*-----------------------------------------------------------------------------*
Function DatosFacturacion(cArea)
*-----------------------------------------------------------------------------*
local cActualDir :=GetCurrentFolder()
local cDirDatos:=GetCurrentFolder()+"\DATOS"
local cArchivo:="CONFIG.DBF"
local nArea
Local aarq := {}
Local aDados := {}
LOCAl cCurDir
//local lRVal := ( DIRCHANGE( cDirdatos ) == 0 )
// Local variable declarations.----------------------------------------
LOCAL aFieldName := { "Entidad", "Oficina", "Fecha Soporte", "Fecha Cargo", ;
"Sufijo", "Minimo", "Presentador del soporte", "Ordenante", ;
"CCC-Entidad", "CCC-Oficina", "D. Control", "Cuenta", "Localidad Oficina", "CCC" }
LOCAL aFieldAdvise := { "Código de Entidad Receptora", ;
"Código de Oficina Receptora", ;
"Fecha de soporte en formato dd/mm/aaaa", ;
"Fecha de cargo en cuenta en formato dd/mm/aaaa", ;
"Sufijo, en este caso 000", ;
"Importe mínimo a facturar", ;
"Empresa que presenta el soporte", ;
"Empresa que ordena la presentación del soporte", ;
"Código de Entidad donde realizar el ingreso (4 números)",;
"Código Oficina donde realizar el ingreso (4 números)", ;
"CCC-Dígito de Control (2 números)", ;
"CCC-Cuenta (10 números)", ;
"Localidad donde se encuentra la oficina",;
"CCC-Completo" }
LOCAL aVisTable := { .t., .t., .t., .t., .t., .t., .t., .t., .t., .t., .t., .t.,.t.,.t. }
LOCAL aFieldEdit := { .t., .t., .t., .t., .t., .t., .t., .t., .t., .t., .t., .t., .t., .t. }
LOCAL aOptions := Array( 3, 2 )
LOCAL bSave := {|| MsgInfo( " Modificación de Datos de Configuración, Efectuada" ) }
LOCAL bSearch := {|| MsgInfo( "Archivo de Datos de facturación" ) }
LOCAL bPrint := {|| MsgInfo( "Se imprimirá la ficha" ) }
aOptions[1,1] := "Ejecutar opcion 1"
aOptions[1,2] := {|| MsgInfo( "Ejecutar Opcion 1" ) }
aOptions[2,1] := "Ejecutar opcion 2"
aOptions[2,2] := { || MsgInfo( "Ejecutar Opcion 2" ) }
aOptions[3,1] := "Ejecutar opcion 3"
aOptions[3,2] := { || MsgInfo( "Ejecutar Opcion 3" ) }
cDirDatos:= "\"+cActualDir+"\DATOS"
cCurDir:=GetCurrentFolder()
DirChange(cCurDir+"\DATOS")
cDirDatos:=cCurDir+"\DATOS"
//USE DISCO ALIAS DISCO NEW
dbUseArea( .t., "DBFNTX", "DISCO.DBF", "DISCO" )
// Chequea existencia de indice1-----------------------------
if !File( "DISCO1.NTX" )
// Create order by first field plus last field.
// You can't search by this order. Only for test.
DISCO->( ordCreate( "DISCO1.NTX", ;
"BANCO", ;
"DISCO->ENTIDADR + DISCO->OFICINAR", ;
{|| DISCO->ENTIDADR + DISCO->OFICINAR } ) )
endif
DISCO->( ordListAdd( "DISCO1", "BANCO" ) )
DISCO->( ordSetFocus( 1 ) )
dbGotop()
// Edit extended demo.-------------------------------------------------
EDIT EXTENDED WORKAREA &cArea ;
TITLE "Datos de Facturación" ;
FIELDNAMES aFieldName ;
FIELDMESSAGES aFieldAdvise ;
FIELDENABLED aFieldEdit ;
TABLEVIEW aVisTable ;
OPTIONS aOptions ;
ON SAVE bSave ;
ON FIND bSearch ;
ON PRINT bPrint
//EDIT EXTENDED WORKAREA DISCO
CLOSE DISCO
DirChange(cCurDir)
*-----------------------------------------------------------------------------*
Return NIL
A partir de TITLE ya hace caso miso, es decir, no pone el nombre de los campos...