... "Fine" OF oDlg ; ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED return nil FUNCTION Crea_File( fDbf, fNtx ) LOCAL aDbf := {} //*** Crea Archivio se non esiste IF !FILE( fDbf ) AADD(aDbf,{"CODICE","C",13,0}) AADD(aDbf,{"DESC","C",15,0}) AADD(aDbf,{"QTA","N",6,2}) ...